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PART 1 
REV. 13 FILE SYSTEM CHAM3ES 

1.1 INTRODUCTION 



1.1.1 MOTIVATION 

The REV. 13 file syston represents the first step in an evolutionary 
process in Oiich the capabilities of the current file syston are to be, 
greatly upgraded and expanded. The new capabilities at REV. 13 
include 32-character filenames, longer files and UFDs, date/time 
stamping, new error handling, and more secure handlirg of segment 
directories and UFDs. The design of the new file syston has been 
guided by three principles: 

1) Vvhenever possible, existing user programs should continue to work 
on the new file system without modifications. 

2) The internal formats and functionality of the new file syston 
should allow future expansion without affecting programs using 
the new file systen. Program efficiency should not be penalized 
by the introduction of rarely used features. 

3) Requirements for accessirg and modifying existing file structures 
are m,ore stringent. Access rights are carefully observed, and 
UFD and segment directory modification is more controlled. 

1.1.2 CCMPATIBILITY OF CLD AND NEW PARTITIONS 

It should be stressed that the distinction between old and new file 
syster, features is on a partition basis. A partition is either in the 
old format or in the new format, never a mixture of the two. The 
following ccmments ap^jly to the interaction of old/new CALLs on old/new 
partitions. 

OLD CALLS ON OLD PARTITIONS: Existing programs and new programs 
that use the old file syston calls will continue to work without 
modification on old partitions. 

OLD CALLS ON NEV. PARTITIONS: Existing programs will continue to 
work on new partitions with the following exceptions: PM^FIL can 
no longer be used in any way on directories {UFDs or segment 
directories). SEARCH can not be used to delete a non-empty 
directory. Segment directories can no longer have UFD 
subentries. There are certain new restrictions on filenames in 
new partitions (see Section 1.2.1.1). 
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NEW CAU£ ON OLD PARTITIONS: Progrenis using the new file system 
calls will work correctly on old partitions. Certain error cases 
will, of course, arise when trying to perform a function only 
supported by a new partition Any filename specified as longer 
than SIX characters is truncated to six characters when running 
on an oIg partition. ^ 

NEW CALt£ ON NEW PAJ^ITIONS: All functions described in this 
document will work on new partitions. 

Note also that using the new file syston, it is still possible to run 
with write-protected disks. 

1.1.3 PRIMOS SUPPORT' FOR NEW FILE SYSTEM 

At REV. 13, all utilities support the new file system. Certain 
cotmiands cannot take a filename longer than six characters. These are 
AVAIL, EASINP, CNVIMA, CRPMC, CRSER, CX, EDB, FILVER, MCG, NUMBER 
PRMFC, PRSER, PRVER, FUSS, TRAMLC, UPCASE. ' 

1.1.4 PRIMOS II AND III CONSIDERATIONS 

New file system calls new partitions are not supported by PRIMOS II 
in addition, new file system calls are not supported by PRINET on calls 
to access remote disks. lb support calls in these situations, a 
package -- the BOUNCE package - is available that will "bounce" the 

Spri^^ of ^^'^/° "f?" fP''^ "^^'^ ^^^y ^il^ ^ transformed into a 
f l^ u 7 ?^^..?^^^^ ^^^t ^^^ understood by PRIMOS II. in some cases 
(noted below) , file unit 16 is used by the bounce package. In others, 
such as GPAS$$ and SATR$$, the current UFD is open^ by the bounce 
package. Ihe bounce package is described in Section 1.6. 
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1.2 OVERVIEW OF NEK FILE SYSTEM FEATURES 



1.2.1 NEW FILE CHARACTERISTICS 



1.2.1.1 New File Uames 

New filenames can be up to 32 characters long, the first character of 
vihich must not be nimeric (6-9) . Filenam.es can be composed only of the 
following characters: 

A-Z 0-9 _#$&*-./ 

If any lower case characters are specified, the are forced to upper 
case. No control characters (0 - :237) are allowed in new file names. 
In the new file systan calls, file names are, as before, ASCII packed 
two characters per word. If the name length specified in a call is 
longer than the actual length of the name, the name m.ust be followed by 
a number of trailing blanks sufficient to match the given length. 



1 .2.1.2 Date/Time Stamping 

There is a new field in a file's UFD entry that records the date and 
tim.e vdien the file was last modified. This field is updated v\*ien a 
file is closed and: 

1) An old file has been opened for K$WRIT or K$RDWR and a write 
operation has been performed. 

2) A new file has been created. 

(Note: the decision to use "last modified" rather than "lest used" was 
to allow the use of wt ite-protected disks.) 



1.2.1.3 Unlimited P ar ti tion and File Size 

On old partitions, the number of records in a file and the number of 
records in a partition are limited to 65536. The number of records in 
a new file or partition is now effectively unlimited and can fill any 
physical storage device supported by PRIMOS. A storage module disk 
partition containing more than 8 heads must be a new partition. 
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1.2.1.4 Fully Indexed DAM Files 

Formerly, when the index of a DAM file overflowed one record (1024 
entries for a storage module, 440 entries for all other disks) , access 
became sequential. In new DAM files, a multi-level index is maintained 
so that any record in the file can be directly accessed. With the 
exception of improved access time, this difference is invisible to user 
prograir^s. (More details on the new DAM organization are given in 
Section 1.8.5.) 



1.2.2 NEW UFD CHARACTERISTICS 



1.2.2.1 Multi-Record UFDs 

UFDS, formerly restricted to a single record, can now span multiple 
records. The limit of no more than 72 files (169 on a storage module) 
in a single UFD no longer holds. (The UFD FULL messaoe will never be 
generated.) 



1.2.2.2 Hidden Internal Format 

It is no longer possible to read and write a UFD using PRWFIL (or the 
new PRWF$$) . Indeed, there is no need for a program to know the 
internal format of a UFD. Programs are therefore protected from future 
changes to, the file syster. The new way in Oiich UFDs are read is 
detailed under the description of the RDEN$$ subroutine in Section 1.2. 

1.2.2.3 Special File Identification 

UFD entries now include an identification of "special" files — files 
having unique use in the file system and not normally accessed by the 
user. These files are SCOT, DSKRAT, BADSPI', and MFD. 
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1.2.3 NEW SEa-lElfr DIRECTORIES 



1.2.3.1 New Entry Identification 

Entries in a seginent directory are no longer identified by a 
<record-nuirib€r , word-nuirter> pair, but by a single entry number froiT' 
to 65535. Ihis ipeans that segment directories are now limited in size 
to 65536 entries (0 - : 177777). 

1.2.3.2 Segirent Directory Handling 

It is no longer possible to read and write segment directories using 
PRWFIL (or the new PRWF$$) . A new subroutine — SGDR$$ — is provided 
for the examination and modification of segment directory entries. 



1.2.3.3 Segment Directory Restriction 

A UFD entry in a seqm;ent directory is now illegal. The only filetypes 
allowed in a segment directory are SAM, DAM, and other segment 
directories. This restriction applies to both new and old partitions. 



1.3 NEW FILE SYSTEM SUEROUIINES 



1.3.1 NOTES ON SUEROLrriNE DESCRIPTIONS 

For each subroutine a car.plete description of the parameters is given, 
followed by notes on usage, brief examples of calls, and notes on 
compatibility with old file system functions. Error return codes are 
summ^arized in a table following the subroutine descriptions. 

Section 1.7 illustrates use of the subroutines with more complete 
sample programs. Throughout, it is assumed that the reader is familiar 
with the old file systor. capabilities as described, for example, in the 
ERIMOS III or IV User 's Guide {KAN2604) . 

1.3.2 KEY DEFINITIONS FOR NEW FILE SYSTEM CALLS 

All keys and error codes are specified in sym.bolic, rather than 
numeric, form. These symbolic names are defined as PARAMETERS (for 
FORTRAN programs) and EQUs (for PMA programs) in $INSERI' files present 
in a new UFD on the master disk called SYSCOM. Ihe key definition 
files are named KEYS.F for FORTRAN and KEYS.P for H^. The error 
definition files are ERRD.F and ERRD.P. For convenience in recognizing 
old file systOT keys, a listing of these files are included in Section 
1.4. Ihe user is urged to use these syonbolic names. 
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1.3.3 NEW ERROR HANDLING C01^iVENTI0^B 

All alternate return parameters (ALTKIN) have been replaced with CODE 
— an integer return code variable. This is part of the new error 
handling protocol, which is completely described in Section 1.5. 
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1.3.4 SUBROUIINE DESCRIPTIONS 



1.3.4.1 ATCH$$ — Attach to UFD 



Function 



Attach to a UFD and optionally make it the home UFD. 



Calling Sequence 

CALL A'ICH$$ (UFENAM,NAMLEN,IDISK,PASSWD,KEY,CODE) 



Parameters 



UFDNAM 



ISiAMLEN 



IDISK 



PASSWD 



KEY 



The narr.e of the UFD to be attached to. If KEY=0 and UFDNAM 
is the key K$HCME the home UFD is attached. 

The length in characters of UFDNAM. NAMLEN may be greater 
than the actual lenath of UFDNAM if UFDNAM is padded with the 
appropriate nun^ber' of blanks. If UFDNAM=K$HOME, NAMI£N is 
disregarded. 

The number of the logical disk to be searched for UFDRAM when 
KEY=K$IMFD. Other values are: 

K$ALLD— Search all started-up logical devices. 

K$CURR— Search the MFD of the disk currently attached. 

A three-word array containing one of the passwords of UFDNAM. 
Can be specified as if attaching to the home UFD. 

A reference value as follows: 

K$IMFD~Attach to UFDNAM in MFD on LDISK. 

K$ICUR— Attach to UFDNAM in current UFD (UFDNAM is a 
subdirectory) . 

TO these two keys may be added K$SETH, e.g., K$IMFD+K$SETH, 
which will set the current UFD to the home UFD after 
attaching . 
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CODE 



An integer variable set to the return code. 



Notes on Usage 

A BAB PASSWE error is not returned to the user's program. Coirj^and 
level IS entered, and the user is left attached to no UFD. Other 
errors leave the attach point unchanged. 

Examples 



1) Attach to home UFD: 

CALL A'ICH$$ (K$HOME, 0,0, 0,0, CODE) 

2) Attach to UFD named 'G.S.PAITON ', passvord 'CHARGE' in current UFD: 

CALL ATCH$$ ( 'G.S.PATTON ',16,K$CURF, 'CHARGE ',K$ICUR,CODE) 

Compatibility 

ATCH$$ is equivalent to ATTACH with the addition of support for longer 
names . 
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1.3.4.2 COMI$$ -- Switch Coinrrand Input Stream 



Function 

COMI$$ is used to switch the canmand input stream from the terminal to 
a command file, or frori a ccranand file to the terminal. 



Celling Sequence 

CALL COMI$${NAFiE,NAMLEN,FUNIT,CODE) 

parameters 



NAME The name of the file to switch the cominend input stream. If 
NAME is 'TTY', the command stream, is switched back to the 
terminal and FUNIT is closed. if NAME is 'PAUSE', the 
ccranand stream is switched to the terminal but FUNIT is not 
closed. If NAME is 'CONINUE', the ccmmond stream is switched 
to the file already open on FUNIT. 

NAMLEN The length in characters of NAME. 

FUNIT The file unit on which to open the command file specified by 
NAME. Norm.ally, file unit six is used. 

CODE An integer variable set to the return code. 



Compatibility 

CCMI$$ has the same function as COIINP extended for long names. COMI$$ 
works on both new and old partitions. Note that neither COIINP nor 
CC>1I$$ currently works across the PRIMENET. 
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1.3.4.3 CREA$$ — Create a New UFD in the Current UFD 

Function 

CREA$$ creates a new UFD (a SUBUFD) in the current UFD and initializes 
the new UFD entry. It replaces the former SEARCH NE1«UPD subkey, used 
to create new UFDs on an old partition. 

Calling Sequence 

CALL CREA$$ {NAME,NAMI£N,OPASS,NPASS,CODE) 

Parameters 

^3AME the name to be given the new UFD. 

NAMLEN The length in characters of NAME. 

OPASS A three-word array containing the owner password for the new 

UFD. If OPASS (1)=0, the owner password is set to blanks. 

NPASS A three-word array containing the non-owner password for the 

new UFD. If NPASS (1)=0 the non-owner password is set to 0's. 
Any password given to ATTACH or ATCH$$ will match a non-owner 
password of 0's. 

CCDE An integer variable to be set to the return code from CREA$$. 

Notes on Usage 

Passwords can be at most 6 characters long. Passwords less than 6 
characters must be padded with blanks for the remaining characters. 
Passwords are not restricted by filename conventions and may contain 
any characters or bit patterns. It is strongly recommended that 
passwords not contain blanks, comras, or the characters 
=t- 1 ' r^iii) ,[,],{,) or lowercase characters. Passwords should not 
start with a digit. If passwords contain any of the above characters 
or begin with a digit, the passwords may not be given on a PRIMOS 
ccanrriand line to the ATTACH corarand. line to the ATTACK comm.and. 

Since the new SEARCH, SRCH$$, will not allow creation of a new UFD, 
CREA$$ must be used for this purpose. 
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CREA$$ requires owner-rights on the current UFD. 

If the bounce package is invoked (see Section 6) , file unit 16 is used 
durinq the create. Unit 16 should not be open when CREA$$ is called. 



Examples 

1) Create new UFD with default passwords of ' ' for owner and 3*0 

for non-owner: 

CALL CREA$$ ( 'NEWUFD ',6,0, , CODE) 



Compatibility 

CREA$$ has no corresponding old file system subroutine. CREAT$ works 
on both old and new partitions. 
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1.3.4.4 CNAM$$ — Change a FilenaTO 

Function 

CNAM$$ is used to change the name of a file in the current ufd. 

Calling Sequence 

CALL CNAM$$ (OLDNM,OLDLEN,NEWNAM,NEWI£N,CODE) 

Paraireters 

OLDNAM The name of the file to be changed. 

OLDLEN The length in characters of OLDNAM. 

NEWNAM The name to be changed to. 

NEWLEK The length in characters of NEWIEN. 

CODE An integer variable set to the return code. 

Notes on Usage 

The user must be the owner to change the name. CNAM$$ does not chanoe 
nf%hi^f -i"^^ ^^ date-time of the file or any of the other attributes 
of the file. However, the last modified date-time of the UFD in which 
m^i Jni^r.f^fi'^^^i'^ changed. On a new partition, CNAM$$ may cause the 
position of the file m the UFD to change with respect to the other 
riies. It is Illegal to change the name of the tMFD, BCX)T, BAESPl'. or 
atteStSr^' ^ ^^ ^^^ ^'''°'' ""^^^^^ '^ generated if this is 

Compatibility 

S!! P'"^^^^^ the functionality of CNAME$ extended for long names. 
CNAM$$ is not available under PRIMOS II or across the FRIMENET. 
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1.3.4.5 GPAS$$ — Obtain- UFD Passwords 



Function 

GPAS$$ returns the passwords of a SUEUFD in the current UFD, 

Calling Sequence 

CALL GPAS$$ {UFDNAM,NAMLEN,OPASS,NFASS,CGDE) 



Peraireters 

UFDNAM The naiTie of the UFD whose passwords are to be returned. 
UFE^JAM is searched for in the current UFD. 

NAM! IN The length in characters of UFDNAM. 

OPASS A three-word array that is set to the owner password of 

UFIMm. 

NPASS A three-word array that is set to the non-owner password of 

UFDNAM. 

CCBE An integer variable set to the return code. 



Notes on Usage 

On the old file system it was possible to obtain the passwords of a UFD 
by reading the UFD's header with PKVFIL. Oi new partitions it is not 
possible to read a UFD with FRSvFIL or PRWF$$ ~ GPAS$$ must be used. 

GPAS$$ requires owner-rights to the current UFD. 

If the bounce package is invoked (see Section 1.6) file unit 16 is 
used, and the current UFD is opened for reading, then closed. 
Therefore, when GPAS$$ is called unit 16 should be closed, and the 
current UFD should not be open for writing on any unit. 
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1) Read passwords of SUEUFD into PASS (6) array: 

CALL GPAS$$ { 'SUBUFD ',6,PASS (1) ,PASS (4) ,CODE) 

Coinpatibility 

GPAS$$ corresponds to no old file system subroutine. GPAS$$ works on 
both old and new partitions. 
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1.3.4.6 NA^'!EQ$ — Compare Filenarnes 



Function 



NAMEQ$ is a LOGICAL function that compares two filenames for 
equivalence. 

Calling Sequence 

<logical> = NAMEQ$ (NAME1,I£N1,NAME2,LEN2) 

Parameters 

NAMEl The first filename for copparison. 

L£N1 The length in characters of NAMEl. 

tWlE2 The second filename for canparison. 

I£N2 The length in characters of NAME2. 

iNiotes on Usage 

NAMEO$ does a character-by-character com.pare of NAMEl and NA-ME2 up to 
LENl or LEN2, v^ichever is shorter. Ihe trailing characters of the 
longer name (if the names are not the sam.e length) must all be blank 
for equality. 

NAMEQ$ will work correctly on numeric fields only if I£N1=LEN2. 
Examples 

1) The following sets EQUAL to .TRUE, no matter v*iat is in ARRAY: 

EQUAL=NAMEC$ (ARRAY ( 1 ) , 127 , ARRAY ( 1 ) , 127 ) 

2) FNAME(3) m.ust be ' ' for the following to set EQUAL .TRUE.: 

EQUAL = NAMEQ$ (FNAME(l) ,6, 'NAME ',4) 
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Compatibilit y 

NAMEQ$ provides the functionality of IWIEOV extended for varying lenqth 
character strings. ^ -^cumlu 
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1.3.4.7 PRWF$$ -- Read-tvrite-Position SAM or DAM File 



Function 



PRWF$$ is used to read, write, position, and truncate SAM or BAM files. 



Calling Sequence 

CALL PRWF$$ {I«KEY+POSKEY+MODE, FUNIT,IJX (BUFFER) ,NW, 

K)S,BNW,CODE) 



Paraireters 

RWKEY This subkey, which cannot be omitted, indicates the action to 

be taken. Possible values are: 

K$READ— Read NW words from FUNIT into BUFFER. 

K$WRIT — Write m words from BUFFER to FUNIT. 

K$POSN— Set the current position to the 32-bit integer in 
POS. 

K$TRNC--Truncate the file open on FL^NIT at the current 
position. 

K$RPOS— Return the current position as a 32-bit integer word 
number in POS. 

EOSKEY A subkey indicating the positioning to be performed. 
Possible values are: 

K$PRER— Move the file pointer of FUNIT POS words relative to 
the current position before performing FSvKEY. 

K$EOSR~Move the file pointer of FUNIT POS words relative to 
the current position after performing ES\'KEY. 

K$PREA~Move the file pointer of FUNIT to the absolute 
position specified by POS before performing RWKEY. 

K$K)SA— Move the file pointer of FUNIT to the absolute 
position specified by POS after performing EWKEY. 
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MODE 



FUNIT 



EUFFEP 



NVv 



POS 



Bm 



CODE 



Note: if this subkey is omitted, the default action is that 
of K$PR£R. 

A subkey that is either oinitted or has the value K$CONV. If 
omitted, NW words ere read or written. If not omitted, a 
convenient number of words (up to Mm) is read or written. 
(The meaning of "convenient" is described in the PRIMOS 
User 's Guide.) 

A file unit number from 1 to 16 (1 to 15 for PRIMCB II or 
under PRINET) on Oiich a file has been opened by a call to 
SRCH$$ or by a canmand. PRWF$$ actions are performed on this 
file unit. 

The data buffer to be used for reading or writing. If BUFFER 
is not needed, it can be specified as IDC(0). 

The number of words to be read or written (MODE=0) or the 
m.aximunt number of words to be transferred (lODE=K$C0NV) . NW 
may be between end 65535. 

A 32-bit integer (INTEGER*4) specifying the relative or 
absolute positioning value depending on the value of POSKEY. 

A 16-bit unsigned integer set to the number of words actually 
transferred vhen RWKEY=K$READ or K$WRIT. Other keys leave 
RNW unm.odified. For the keys K$READ and K$KRIT, RNW must be 
specified. 

An integer variable to be set to the return code. 



Notes on Usage 

POS is always a 32-bit integer, not a <record-number , word-number> 
pair. All calls to PRWF$$ must specify POS even if no positioning is 
requested. An INTEGER*4 can be generated by specifying "000000" or 
"INT'L(0)" in FTW, "0L" in PMA. 

POSKEY is observed for all values of H/v'KEY except REDPOS, for which it 
is ignored (the file position is never changed) . 

If RWKEY = K$POSN, NW and RNW are ignored, and no data is transferred. 

Note that it is no longer necessary to call GETERR to obtain the number 
of words transferred. 
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Examples 

1) Read the next 79 words from the file open on unit 1: 

CALL PRWF$$ (K$REAB,1,L0C(BUFFER) ,79, 000000, mPEAD',CODE) 

2) Add 1024 words to the end of the file open on UNIT (10000000 is just 
a very large number to get to the end of the file) : 

CALL PRWF$$ (K$POSN+K$PREA, UNIT, IDC (0),0, 10000000, tWv, CODE) 
CALL PRWF$$ (K$WRIT, UNIT, tCC(BFR), 1024, 000000, WW,CCDE) 

3) See Oiat position is on file unit 15 (INT4 is INT?EGER*4): 

CALL PRWF$$ (REDPOS,15,LOC(0),0,INT4,0,Ca)E) 

4) Truncate file 10 words beyond the position returned by the above 
call: 

CALL PRWF$$ (K$TRNC+K$PREA,15,IDC(0),0,INT'4+10,0,CODE) 



Coinpatibility 

PRJv'F$$ cannot be used on UFDs or segment directories as could PRWFIL. 
Note that PI^F$$ now performs the TRUNCATE function, formerly 
associated with SEARCH. The REWIND function of SEARCH is also 
performed by PRWF$$: to rewind a file perform the following call: 

CAiL PRWF$$ (K$POSN+K$PREA,FUNIT, 0,0, 000000, RNVv,CODE) 

This will position to the start of the file without performing any data 
transfer. 
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1.3.4.8 RDEN$$ — Read UFD Entry 

Function 

RBEN$$ positions-in or reads-frcm a UFD. 

Calling Sequence 

CALL RCeN$$ (KEY, FU1>JIT,BUFFER,BUFI£N,RNW, NAME, NAMLEN, CODE) 

Paremeters 



KEY An integer variable specifying the action to be taken. 
Possible values are: 

K$READ— Advance to the start of the first or next UFD entry 
and read as much of the entry as will fit into BUFFER. 
Set RNW to the niKber of words read. 

K$GPOS— Return the current position in the UFD as a 32-bit 
integer in NAME. 

K$UPOS— Set the current position in the UFD from the 32-bit 
integer in NAME. 

FUNIT A unit on vsiiich a UFD is currently opened for reading. (A 
UFD may be opened with a call to SRCH$$.) 

BUFFER A one dimensional array into Oiich entries of the UFD are 
read. 

BUFLEN The length in words of BUFFER. 

RNW An integer variable that will be set to the number of words 
reed. 

NAME A 32-bit integer variable used for keys of dTPOS and SETPOS. 

NAMLEN A 16-bit integer variable reserved for future use. (It is 
envisioned that NAME and NAMI£N will in the future be used to 
allow searching for the entry corresponding to a particular 
filename.) 

CODE An integer variable to be set to the return code. 
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Notes on Usage 

RDEM$$ is used to read entries froB e UFD, RNK words are returned in 
BUFFER, and the file unit position is advanced to the start of the next 
entry. Fteturn code E$EOF means no more entries, E$BFTS means BUFFER is 
too anall for the entry. 

Note that in the new file system, UFDs are not conpressed when files 
are deleted, and vacant entries m.ay be reused. Ihus, a newly-created 
file will not necessarily be found at the end of a UFD. 



Ihe com.plete format of currently defined entries is given here, 
numbers are decimal tmless preceded by a ': '.} 



(Ml 



B 1 ECW 1 


1 IF 1 
1 I 1 
i L 1 
1 E 1 
1 ... 1 
IN 1 
! A I 
1 M 1 
1 E 1 


17 1 PROTEC I 


18 1 RESERVED! 


19 1 FILTYP 1 


20 1 DATMOD 1 


21 1 TIMMOD 1 


22 1 RESERVED 1 


23 1 RESERVED! 



ENTRY CONTROL WORD (TYEE/LE1«I'H) 



FILENAME (EL?iNK PADDED) 



PROTECTION (OWWER/NON-OWNER) 
RESERVED FOR FUl'URE USE 

FILETYPE < (END OF ENTRY FOR TYPEl) 

DATE LAST MODIFIED 
TIME LAST MODIFIED 
RESERVED FOR FUI'URE USE 
RESERVED FOR FUTURE USE 



ECW Entry Control Viord. An ECK is the first word in any entry 

and consists of two 8-bit subfields. The high-order 8 bits 
indicate the type of the entry, the low-order 8 bits give the 
length of the entry in words including the ECW itself. 
Possible values of the EOv at REV. 13 are as follows: 

1000001 - Type=0, length=l. This entry indicates either a 
UFD header or a vacant entry. No information other than 
the EO\' is returned. 
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: 000424 - TYpe=l, length=20. Type=l indicates an old UFD 
entry. Words 0-19 in the diagram above are returned. 

:001030 - Type=2, length=24. •IVpe=2 indicates a new UFD 
entry. All the above inforiTiation is returned. Reserved 
fields should be ignored. 

User programs should ignore any entry-types that are not 
recognized. This will allow future pyp^nsion n¥ <-Ko -(^n^ 
system without unduly affecting old programs. 

FILENAME Up to 32 characters of filenair,e, blank padded. 



PROTEC 



FILTYP 



DATMCn 



TIMMOD 



OwDer and non-owier protection attributes. The owner rights 
are in the high-order 8 bits, the non-owner in the low-order 



U 



8 bits. The meanings of the bit positions are as follows 
1-bit grants the indicated access right) : 

1-5,9-13 Reserved for future use. 

6.14 Delete/truncate rights. 

7.15 Write-access rights. 

8.16 Read-access rights. 

On a new partition , the low-order 8 bits indicate the type of 
the file as follows: 

SAM file. 

1 DAM file. 

2 SAM Segment directory. 

3 DAM Segmient Directory. 

4 UFD 

On an old partition , the filetype is zero ~ the file must be 
opened with SRCH$$ to determine its type. Of the high-order 
8 bits, only bit 4 (: 10000) is currently defined. If one, it 
indicates a special file ~ BOOT, MFD, DSKRAT, or BADSPT. 
The other bits are reserved for future use. (Bit 4 is valid 
on both new and old partitions.) 

The date on Oiich the file was last modified. The date, 
which is valid only on new partitions, is held in the binary 
form YYYYYYYMMMMDDDDD, where YYYYYYY is the year modulo 100, 
MMMM is the month, DDDDD is the day. 

The time at which the file was last modified. The time, 
which is valid only on new partitions, is held in binary 
seconds-since-midnight divided by four. 
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Exairples 

1) Read next entry from new or old UFD: 

100 CALL RDEK$$ (K$READ,FL'NIT,ENTRY,24,PNW,0,0,CODE) 
IF (CODE .KE. 0) GOTO <error hendler> 
TYPE=RS (ENTRY (1) ,8) /* GET TYPE OF ENTRY JUST READ 
IF (TYPE. NE. LAND. TYPE. ^3E. 2) GOTO 100 /* UNKNa^iN 

2) position to beginning of UFD: 

CALL RDEN$$ (K$UPOS,FUNIT, 0,0, 0,000000,0, CODE) 



Compatibility 

RDEN$$ provides the facility lacking in the new PRWF$$ — the ability 
to read UFDs. In addition, knowledge of the internal layout of a UFD 
is not necessary in user programs. RDEN$$ can be used on both old end 
new partition UFDs. 
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.1.3.4.9 REST$$ — Restor a P300 Memory Image from a File 



Function 

REST$$ reads a P300 memory image fran a file in the current UFD into 
memory.lhe SAVE a parameters for a file previosly written to the disk 
by the SAVE or SAVE$$ subroutine or the SAVE corjnend are loaded into 
the nine word array VEaOR. The memory im,age itself is then loaded 
into mem-ory using the starting and ending addressed provided by 
VECTOR (1) and VECTOR (2). 



Calling Sequence 

CALL REST$$ (VECTOR, NAME, NAMLEN, CODE) 

Parameters 



VECTOR 



NAME 

NAMIEN 

CODE 



A nine word array set by REST$$. VECTOR (1) is set to the 
first location in m.emory to be restored. VECTOR (2) is set to 
the last location to be restored. The rest of the array is 
set as follows: 



VECTOR (3) 
VECTOR 14) 
VECTOR (5) 
VECTOR (6) 
VEaOR(7) 
VECTOR (8) 
VECTOR (9) 



saved P register 
saved A register 
saved E register 
saved X register 
saved Keys 
not used 
not used 



The namie of the file containing the memory image, 

The length in characters of NAME. 

An integer variable set to the return code. 



Compatibility 

REST$$ has the same function as RESTOR and handles long names, 
works on both old and new partitions. 



REST$$ 
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1.3.4.10 RESU$$ — Resiminq £ P300 Meirory Iirage File 



Function 

RESU$$ restores e P300 iremory image from a file in the current UFD, 
initializes registers fror. the saved parameters, and starts executing 
the program. 



Calling Sequence 

CALL RESU$$aJAME,NAMLEN) 

ParaiTieters 

NAME The name of the file containing the memory image. 
NAMLEN The length in characters of NAME. 

Notes on Usage 

RESU$$ does not have a CODE argument. On a error, an error message is 
typed end control returns to comm.and level. 

Compatibility 

RESU$$ provides the functionality of RESUME extended for long names, 
RESU$$ works both on old and new partitions. 
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1.3.4.11 SATR$$ — Set Attributes in UFD Entry 



Function 

SATR$$ allows the setting or modification of a file's attributes in its 
UFD entry. 



Calling Sequence 

CALL SATR$$ (KEY, NAME, NAMI£N,A,PPAY, CODE) 

Parameters 



KEY 



NAME 

NAMIEK 
ARRAY 

CODE 



An integer variable specifying the action to take. Possible 
values are: 

K$PROT— Set protection attributes from ARRAY{1). ARRAY(2) is 
ignored for old partitions and must be for new 
partitions (it is reserved for expansion) . ihe meaning of 
the protection bits in ARRAY (1) is given under RDENS$ 
above . 

K$DTTM— Set date/time modified f ran ARRAYd) end APRAY(2). 
The format of the date/time is given under RDEN$$ above. 

The name of the file whose attributes are to be modified 
The current UFD is searched for NAME. 

The length in characters of NAME. 

A two-word array containing the attributes. For KSPROT, 
ARRAY (2) must be zero. 

An integer variable set to the return code. 



Notes on Usage 

Owner rights are required on the UFD containing the entry to be 
m.odified. 

The formats of the attributes in ARRAY are the same as those in a UFD 
entry obtained from RDEN$$. 
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An atterr.pt to set the date/tiir,e modified on an old ^partition will 
result in an E$OLDP error (error message 'OLD PARTITION ) . 

Since a call to SATB$$ modifies the LFD, the date/time m,odified of the 
UFD itself is updated. 

If the bounce package is being used (see Section 1.6), file unit 16 
should be closed, and the current UFD should not be open on any unit 
prior to the call. 



Examples 

1) Set default protection attributes on KYFILE: 

ARRAY (1)=: 3400 /* 0WNER=7, NQN-OWNER=0 
ARRAY(2)=0 /* SECOND WORD MUST BE 
CALL SATR$$ (K$PROT, 'MYFILE ',6,ARRAY(1) ,CODE) 

2) Set both owner and non-owner attributes to read-only (note carefully 
bit positioning in two-word octal constant) : 

CALL SATR$$ (K$PRCT, 'NO-YOU-DCN "T ' , 12 , : 100200000 , CODE) 

3) Set date/time modified from UFD entry read into ENTRY by RDEN$$: 

CALL SATR$$ (K$DTIM,F1LNAM,6,EN^RY(21) ,CODE) 

Compatibility 

SATR$$ has no corresponding old file system routine. It provides a 
facility (setting the protection bits of a file) formerly available via 
PRWFIL. SATR$$ can be used on old and new partitions. 
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1.3.4.12 SAVE$$ — Save a P300 Memory lirege as a File 



Function 



ITrlt nL "^^ '° '^^^ ^ ^^^^ 300 n^emory in,age as a file in the 



current UFD 

Calling Sequence 

CALL SAVE$${ VECTOR, NAME, NAMLEN) 

Paraireters 



VECTOR 



NAME 
NAMLEK 



wr^npm ^''^^J"^^ ^^^' ^^^s up before calling SAVE$$ 
VECTOR (1) IS set to an integer which is the first location in 
meniory to be saved and VECT0R(2) is set to the last location 
to be saved The rest of the array is set at the user 's 
option and has the following meaning: 

VECTOR (3) saved P register 

VECTOR (4) Saved A register 

VECTOR (5) Saved B register 

VECTOR (6) Saved X register 

VEC7IOR(7) Saved Keys 

VECTOR (8) not used 

VECTOR (9) not used 

The name of the file to contain the memory image. 
The length in characters of NAME. 



Notes on usage 

fry ^^ "°'' ^^""^ ^ ^°^ argument. On an error, an error message ic; 
typed and control returns to commend level. ".es.age is 

Compatibility 

IJwi ZTt^^^ !5^ functionality of SAVE extended for long names. 
SAVE$$ can be used on new and old partitions. 
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1.3.4.13 SPAS$$ -- Set UFD passwords 

Function 

SPAS$$ sets the passwords of the current UFD. 

Calling Sequence 

CALL SPAS$$(OPASS,NPASS,CCDE) 

Perarneters 

OPASS A three word array that contains the password to set as the 
owner password. 

NPASS A three word array that contains the password to set as the 
nonwoner password. 

CODE An integer variable set to the return code. 

Notes on usage 

SPAS$$ requires owner rights to the current UFD. Passwords should not 
start with a number nor should they contain blanks,- carinas, 
=,l,^t{,} ,[,] riror ) .Passwords should not contain lower-case characters 
but may contain any other characters including control characters. 

If the bounce package is invoked (see section 1.6), file unit 16 J.s 
used and the current ufd is opened for wTiting, then closed. Ihe 
current ufd should not be open on any unit before making this call. 

Compatibility 

SPAS$$ has no corresponding old file system subroutine. SPAS$$ works 
on both new and old partitions. 
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1.3.4.14 SRCH$$ — Open or Close a File 



Function 



SRCH$$ is used to connect e file to a file unit (open a file) , 
oisconnect a file from a file unit (close a file) . delPtP ^ fiio A^ 



check on the existence of e file. 



(close 5 file), delete a file, or 



Calling Sequence 

CALL SRCH$$ (ACTI0N4I<EF+NEWFIL,MME,NAMI£N,FUNIT,TYPE,C0DE) 



Paraireters 



ACI'ION 



REF 



NEWFIL 



A subkey indicating the action to be performed. Fossible 
values are: 

K$READ~Cpen NAME for r jading on FUNIT. 

K$WRn— Open NAME for writing on FUNIT. 

K$RDfliR~Open NAME for reading and writing on FUNIT. 

K$CIDS — Close file by NAME or by FUNIT. 

K$DELE— Delete file NAME. 

K$EXST— Check on existence of NAME. 

A subkey modifying the ACTION subkey as follows: 

K$IUFD~Search for file NAME in the current UFD (this i^ the 
default) . 

K$ISEG— PerforiT, the action specified by ACTION on the file 
that is a segment directory entry in the directory open on 
file unit NAME. 

K$CACC~Change the access rights of the file already open on 
FUNIT to ACTION. 

A subkey indicating the type of file to create if NAME does 
not exist. Possible values are: 
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K$NSAM— New threaded (SAM) file (this is the default) . 

K$NSGS— New threaded (SAM) segrcent directory. 

K$KSQD— New directed (DAM) segirent directory. 

Note that it is not possible to generate a new UFD with 
SRCH$$. use CREA$$ instead. 

NAME The name of the file to be opened. The key OENCUR can be 
used to open the current UFD (ACTION keys K$READ, K$WRIT, or 
K$RDKR only) . If REF is K$ISEG, NAME is a file unit from 1 
to 16 (1 to 15 under PRIMOS II or PRIKET) on which a segm,ent 
directory is already open. 

NAMI£N The length in characters of name. 

FUNIT The number (1-16, 1-15 under PRIMOS II or PRINET') of the file 
unit to be opened or closed. 

TYPE An integer variable that is set to the type of the file 
opened. TYPE is set only on calls that open e file — it is 
unmodified for other calls. Possible values of TYPE are: 

SAM file 

1 DAM File 

2 SAM Segment Directory 

3 DAM Segment Directory 
A UFD 

CODE An integer variable set to the return code. 



Notes on Usage 

The keys REWIND and TRUNCATE of the old SEARCH are now PRWF$$ 
functions. 

Note that it is no longer necessary to call GETERR to obtain the type 
of the file opened. (Indeed, ERRVEC is no longer set up with the 
filetype.) 

A UFD may be opened only for reading. An attempt to open a ^UFD for 
writing will result in an E$NRIT error (error message 'NO RIGHT'). 

A UFD cannot be deleted unless it is empty. A segment directory cannot 
be deleted unless it is of length 0. (It can be made to be length by 
a SGDR$$ call with the MAKSIZ key — see description of SGDR$$.) 
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Exeirples 

1) Open new SAM file named RESULTS for output on file unit 2: 

CALL SRCH$$ (K$WRIT, 'RESULTS ',7, 2,TYPE,C0DE) 

2) Create new DAM file in the segment directory open on SGUKIT and open 
tor reading and writing on DMUNIT: 

CALL SRCH$$ (K$REWR+K$ISEG+K$NDAM,SGUNIT,1,DMUNIT, TYPE, CODE) 

3) Close and delete the file created in the above call: 

CALL SRCH$$ (K$CLOS,0,0,BMUNIT,0,CODE) 

CALL SRCH$$ (K$DELE+K$ISEG,SGUNIT,0, 0,0, CODE) 

4) See if filename *MY. BLACK. HEN' is in current UFD: 

CALL SRCH$$ (K$EXST+K$IUFD, 'MY.BLACK.HEN',12,0,TYPE,CODE) 
IF (CODE.EC.E$FNTF) CALL TNOU( 'NOT' FOUND ',9) 

5) Create a new segment directory and a new SAM file as its first 
entry: 

CALL SRCH$$ (K$R»vR+K$NSGS,'SEGDIR',6,UNIT,TYPE,C0DE) 
CALL SRCH$$ {K$ViI<IT+K$NSAM+K$ISEG, UNIT, 0,7,T7PE, CODE) 

Compatibility 

SRCH$$ provides all the functionality of SEARCH except the REWIND and 
TRUNCATE functions, which are now provided by PRWF$$. Also, since UFDs 
cannot be read with F(RWF$$, filned or closed. 

TYPE An integer variable that is set to the type of the file 
opened. TYPE is set only on calls that open a file — it is unmodified 
for other calls. Possible values of TYPE are: 

SAM file 

1 DAM File 

2 SAM Segment Directory 
DAM Segment Directory 



7 



CODE 



4 UFD 

An integer variable set to the return code. 
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Notes on Usgge 

ine Keys KcwiiN'iJ sno ■i±<uN(^rtin. ui cut ui,u ob/-u\<^ii ci.c ji^w ti^fvi-vv 
functions. 

Note that it is no longer necessary to call (^ITERR to obtain the type 
of the file opened. (Indeed, ERRVEC is no longer set up with the 
filetype.) 

A UFD may be opened only for reading. An attempt to open a UFD for 
writing will result in an E$NRIT error (error message 'NO RIGHT'). 

A UFD cannot be deleted unless it is empty. A segment directory cannot 
be deleted unless it is of length 0. (It can be made to be length by 
a SGDR$$ call with the KAKSIZ key — see description of SGDR$$.) 



Examples 

1) Open new SAM file named RESULTS for output on file unit 2: 

CALL SRCH$$ (K$WRIT, 'RESULTS ',7, 2, TYPE, CODE) 

2) Create new DAM file in the segmtent directory open on SGUNIT and open 
for reading and writing on DMUNIT: 

CALL SRCH$$ (K$RDVv'R+K$ISEG+K$NDAM, SGUNIT, 1,CMUNIT,TYPE,C0DE) 

3) Close and delete the file created in the above call: 

CALL SRCK$$ {K$CLOS,0,0,DMUNIT,0,CODE) 

CALL SRCH$$ (K$DELE+K$ISEG, SGUNIT, 0,0,0, CODE) 

4) See if filenam.e 'M Y.E LACK. HEN ' is in current UFD: 

CALL SRCH$$ (K$EXST+K$IUFD, 'MY. BLftCK. HEN ',12,0, TYPE, CODE) 
IF (CODE.E0.E$FNTF) CALL TNOU('NOT FCOCi ',9) 

5) Create a new segm,ent directory and a new SAM file as its first 
entry: 

CALL SRCH$$ (K$RDWR+K$NSGS, 'SEGDIR',6,UNIT,TYPE,C0DE) 
CALL SRCH$$ (K$WRIT4K$NSAM+K$ISEG, UNIT, 0,7, TYPE, CODE) 
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Compatibility 

SRCH$$ provides all the functionality of SEARCH except the REWIND and 
TRUNCATE functions, v*ich are now provided by PRWF$$. Also, since UFDs 
cannot be read with PRWF$$, files can no longer be opened via a K$ISEG 
through UFD entries. SRCH$$ can be used on old end new partitions. 
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1.3.4.15 SGDR$$ — Position and Reed Segnient Directory Entries 



Function 

SGDR$$ positions in a segment directory, reads entries, and allows 
modification of a directory's size. 



Calling Sequence 

CALL SGDR$$ (KEY,FU1^IT,ENTRYA,ENTRYB,C0DE) 

Par aire ters 



KEY An integer specifying the action to be performed. Possible 

values are: 

K$SPOS— Move the file pointer of FUNIT to the position given 
by the value of ENT'RYA. Return 1 in ENTRYB if ENTRYA 
contains a file, return if ENTRYA exists but does net 
contain a file, return -1 if ENTRYA does not exist (is 
beyond EOF) . If EOF is reached on K$SPOS, the file 
pointer is left at EOF. Ttie directory must be open for 
reading or both reading and writing. 

K$QOND--Move the file pointer of FUNIT to the end-of-fiie 
position and return in ENT^RYB the file entry number of the 
end of the file. 

K$GPOS— Return in ENTRYB the file entry number pointed to by 
the file pointer of FUNIT. 

K$MSIZ — Make the segment directory open on FUNIT ENTRYA 

entries long. The file pointer is moved to the end of 

file . The directory must be open for both read ing anB 
writing 

K$MVNT--The entry pointed to by ENTRYA is moved to the entry 
pointed to by ENTRYB. Ihe ENTRYA entry is replaced with a 
null pointer. Errors are generated by K$MVNT if there is 
no file at ENTRYA, if there is already a file at ENTRYB, 
if either ENTRYA or ENTRYB are at or beyond EOF. Ihe file 
pointer is left at an undefined position. The directory 
must be open for both reading and writing. 
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FUNIT ihe file unit on which the segment directory is open. 

ENTRYA An unsigned 16-bit entry number in the directory, to be 
interpreted according to KEY. 

ENTRYB An unsigned 16-bit integer set or used according to KEY. 

CODE An integer variable set to the return code. 

Notes on Usage 

l\hen using SGDR$$, the segment directory should not be opened for 
write-only access. 

A K$MSIZ call with ENTRYA=0 will cause the directory to have no 
entries. If the value of EMRYA is such as to truncate the directory, 
all entries including and beyond the one pointed to by ENTRYA must be 
null. 

N.B.: When sequentially reading a directory (K$SPOS, ENTRYA = 
ENTRYA+1, K$SPOS, ..,), ENTRYE=-1 indicates the end of the directory, 
NOT the return code E$EOF. E$ECF will be returned v*ien ENTRYA 
indicates a position beyond EOF, i.e., the entry following the first 
K$POS to return ENTRYB=-1. 



Examples 



1) Read sequentially through the segment directory open on 6: 

CURP0S=-1 
100 CURP0S=CURP0S4l 

CALL SaDR$$ (K$SP0S,6,CURP0S,RETVAL,C0DE) 

IF (RETVAL) 200,300,400 /* BOTTa-1, NO FILE, IS FILE 

2) Make directory open on 2 as big as directory open on 1: 

CALL SGDR$$ (K$GOND, 1,0, SIZE, CODE) 
IF (CODE.NE.0) GOTO <error handler> 
CALL SGDR$$ (K$MSIZ,2,SIZE,0,CODE) 
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Carpctibility 

^,-vr^T^<*e -'tr ^j-^ J:,,^,-.t.■;^r^T,^ ■;+--ir -Foi-TT-oT- 1 \7 atrPil^hlp \7 T p! PRWFTTi. Mote. 

however, that relative positioning is no longer allowed. 

SGDR$$ will work on old and new segrcent directories (i.e., will v«rk on 
both one-word end two-word entry segirent directories) . 
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1.3.4.16 TEXTO$ — Check Validity of Filename 



Funct ion 

TEXTC$ checks to see if a filename has valid format. 

Calling Sequence 

CALL TEXTC$ (NAME,NAMI£N,TRULEN,TEXTOK) 



Parameters 

mi'-iE An array containing the filename to be checked. 

NAiMLEN The length of KAME in characters. 

TRULEN An integer set to the true number of characters in I^iAME. 
TRULEN is valid only if TEOTOK is .TRUE. 

TEXICK A logical variable set to .TRUE. if NAiME is a valid 
filename, else set to .FAI^E. 

Notes on Usage 

TRULEK is the number of characters in KAME preceeding the first blank. 
If there are no blanks, TRULEN is equal to NAMLEN. The characters 
valid in filenames are given in Section 1.2.1.1. 

Examples 



1) Read nam.e from terminal, check for validity, set TRULEN to actual 
name length: 

CALL I$AA12 (0, BUFFER, 80, $999) 

CALL TEXTO$ (BUFFER, 22, TRULEN,OK) /* SET TRULEN 

IF (.NOT. OK) GOTO <bad-name> 
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Conpatibility 



TbX"itj$ excencs trie LuiiCLiuiioj. icy ui. ii^/^i<^i\. 
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1.3.5 EhROR CODE S^I4^iAP.Y 

The following table summarizes all new file system error codes, 
NuiTieric definitions are given in the next section on SYSCOM. 

X=>Possible Error 0=X)ld Partition Only E=>Bounce Package Only 
CDDE ATCHSS CRRASS r;PA.Q<;':: DDfcPCC: cniPMCC cAmcc-e c^r^r-nfe- 0^,-,^^.^ 



E$EOF 








X 


X 






X 


E$BOF 
E?UNOP 




X 


X 






X 


B 




X 


X 




X{1) 


X 


E$UIUS 


B 






B 


X(2) 




E$FIUS 




B 


B 






B 


X(2) 




E$EPAR(3) 


















E$NATT' 


X 


X 


X 






X 


X(4) 




E$FDFL 















0(5) 




E$DKFL 




X 




X(5) 






X(5) 


X(5) 


E$NRIT 




X 


X 






X 


X 


X 


E$FDEL 














X 




E?NTUD 


X 




X 








" X(4) ■ 
X(8) 




E$KTSD 










E$DIRE(3) 












E$FNTF 


X 




X 






X 


X{4) 




E$FOTS 














X(8) 


X 


E$BNAM 




X 










X(4,5) 




E$EXST 




X 












X 


E$OslTE 








X 




E$SHUT(3) 
E$DISK(6) 


















X 

X 


X 
X 


X 


X 
X 


X 


X 


X 


X 


E$BbAM 






X 




E$PrRM 


X 


X 


X 


X 


X 


X 


E$BPAS 


X(7) 
















E$BC0D{3) 












E$BTPN 
















X 


E$OLDP 



















E$BKEY 


X 








X 


X 


X 


X 


E$BUNT' 








X 


X 




X 


X 


E$BSUN 














X(8) 




E$SUNO 














X{8) 




e"$nmlg 

E$SDER(3) 




























E$BUFD(9) 


X 


X 


X 




X 


X 


X 




E$BFTS 
E?FITB 










X 


















X 


Notes 



















1) Possible for K$CACC key only. 
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2) possible for all keys but K$EXST. 

3) Internal error — never seen by user prograir!. 

4) Possible only on LTD reference keys. 

5) Possible only on write operations. 

6) An E$DISK (disk I/O) error will always iinirediately return the 
prograiTi to PRIMOS coranand level. 

7) An E$EFAS (bad passvvord) error will always iimediately return the 
prograir! to PRIMCS caiur.and with no UFD attached. 

8) Possible only on segirient directory reference keys. 

9) An E$BUF'D (bad UFD) error will be returned only on a RDEN$$ call and 
a bounced GPAS$$ call. Other subroutines will place the user at 
PRIMCS cOTBiiand level. 
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1.4 NEK FILE SYSTEM KEY AND ERROR DEFINITIONS 

1.4.1 KEYS.F — FILE SYSTEM KEY DEFINITIONS 

Keys for the new file systeir, cells are defined in two $INSERT files — 
KEYS.F for FORTRAN and KEYS.P for FMA — in the UFD SYSCa^ on VQlme 1 
of the Master Disk. KEYS.F is reproduced here to aid in correlation of 
the key nairies with the old file systerti keys. KEYS.P is equivalent, 
using EQUs instead of PARAMETERS. 



C SYSCOM>KEYS.F MNEMONIC KEYS FOR FILE SYSTEM (FTN) 

NOLIST 
C 
C TABSET 6 11 28 69 



C 



INTEGER* 2 K$RE'AD , K$WRIT , K$POSN , K$T'RNC , K$RPOS , K$PRER , K$PREA , 
X K$POSR , K$POSA , K$CONV , K$RD*vR , K$CIDS , K$DELE , K$EXST , 
X K$IUFD,K$ISEG,K$CACC,K$NSAM,K$NDAM,K$NSGS,K$NSGD, 
X K$CURR,K$IMFD,K$ICUR,K$SETC,K$SETH,K$ALLD,K$SPOS, 
X K$GOND , K$MSI Z , K$MENT , K$ENT:R , K$SENT , K$GFOS , KSUFOS , 
X K$PROT , K$DT IM , K$DMPB , K$NRT'W , K$SRTN , K$IRT'N 

PARAMETER 
X 

X /************************************************* ;c*ic*i<*/ 

X /* 

X /* 

X /* KEY DEFINITIONS 

X /* 

X /* 

X /********************* PRWF$$ ********************* 

X /* ****** RVv'fvEY ****** 

1, /* READ 

2, /* "WRITE 

3, /* POSITION ONLY 

4, /* TRUNCATE 

5, /* READ CURRENT POSITION 



X K$READ = 

X K$WRIT = 

X K$POSN = 

X K$TRNC = 

X K$RPOS = 



X /* ****** poSKEY ****** 



X K$PRER = 

X K$PREA = 

X K$POSR = 

X K$POSA = 



0, /* PRE-POSITION RELATIVE 

Ifd, /* PRE-POSITION AESOLOTE 

20, /* POST-POSITION RELATIVE 

30, /* POST-POSITION AESOLUI'E 

X /* ****** HrjoDE ****** 

X K$CCNV = :400, /* CONVENIENT? NUMBER OF WORDS 

X /* 

X /********************* SRCH$$ ********************* 
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X /* 

X /* 

X /* 

X 

X 

X 

X 

X /* 

X 

X 

X 

x/* 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X /* 

X 



K$READ = 
K$wRIT = 
K$RBvR = 
K$CLOS = 
K$DELE = 
K$EXST = 

K$IUFB = 
K$ISEG = 
K$CACC = 

K$NSM = 
K$NDAM = 
K$NSGS = 
K$NSGD = 
K$CURR = 



****** ACTION ****** 

1, /* OPEN FOR READ 

2, /* GHi,N FOR IwRITE 

3, /* GIEN FOR READING AKD WRITING 

4, /* CLOSE FILE UNIT 

5, /* DELETE FILE 

6, /* CHECK FILE'S EXISTENCE 

****** p£p ****** 

0, /* FILE ENTRY IS IN UFB 
100, /* FILE ENTRY IS IN SEGMENT DIRECTORY 
1000, /* CHANGE ACCESS 
****** t^EWFIL ****** 

0, /* NEW SAM FILE 

2000, /* NEW DAM FILE 

4000, /* NEW SAM SEO^^ENT' DIRECTORY 

6000, /* NEW DAK SEGMENT DIRECTORY 

177777,/* CURRENTLY ATTACHED UFD 



/* 
/********************* ATCH$$ ********************* 

/" 



r 



/* 



K$IMFD = 
K$ICUR = 

K$SETC = 
K$SETH = 



:0, 
:2, 

:B, 
:1, 



****** KEY ****** 

/* UFD IS IN MFD 

/* UFD IS IN CURRENT- UFD 

****** f^EYftOD ****** 

/* SET' CURRENT UFD (DO NOT' SET' HOME) 
/* SET HOME UFD (AS WELL AS CURRENT) 

****** {.j^iE ****** 

/* RETURN TO HOME UFD (KEY=K$IMFD) 
****** LJ3ISK ****** 
K$ALLD = : 100000,/* SEARCH ALL DISKS 
X /* K$Cb'RR = : 177777,/* SEARCH MFD OF CURRENT' DISK 

X /* 

Y^ /********************* SGDR$$ ********************* 



K$HOME = :0, 



****** j^EY 



X /* 

X 

X 

X 

X 

X 

X /* 

J( /********************* 



****** 



K$SPOS = 
K$GOND = 
K$GPCS = 
K$MSIZ = 
K$MVNT = 



1, 
2, 

- r 

4, 
5, 



/* 
/* 
/* 
/* 
/* 



POSITION TO ENTRY NUMBER IN SEGDIR 
POSITION TO Em OF SEGDIR 
RETURN CURRENT' EN^RY NUMBER 
MAKE SEGDIR GIVEN NR OF ENTRIES 
MOVE FILE ENTRY TO NEW tOSITION 



K$READ = 
K$RSUE = 
K$GFOS = 
K$UPOS = 



1, 
2, 

4, 



RDEN$$ 
****** KEY 

/* 
/* 

/* 
/* 



********************* 
****** 

READ' NEXT ENTRY 

READ NEXT' SUB-ENT'RY 

RETURN CURRENT POSITION IN UFD 

POSITION IN UFD 



X /* 
X /* 
X 

x/* 

X 

X /* 

^ /********************* SATR$$ ********************* 

Y /* ****** {(EY ****** 

X K$PRCT = :1^ /* SET PROT'ECTION 

X K$DT'IM = :2, /* SET DATE/TIME MODIFIED 

X K$DMPE = :3, /* SET' DW-lffiD BIT 

X /* 

jj /********************* ERPR$$ ********************* 
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{(£Y ****** 

NEVER RETURN TO USER 
RETURN AFTER START' CaiMANB 
IMMEDIATE RETURN TO USER 



X /********************************************************* 

LIST 



X /* 




****** 


X K$NRTN = 


:0, 


/* 


X K$SRTN = 


:1, 


/* 


X K$IRT'N = 


:2 


/* 


X /* 






X /* 
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1.4.2 ERHD.F — ERKDR RETURN CODE DEFINITIONS 






XO j_/i.WV XV_*C^-J ii^tc 



<!n-Ka4-im -hq e2S6 corr©lstion 
of the new error names with old file system error codes. ERRD.P (for 
FMA) provides exactly the sarr.e definitions in the form of EQUs. (The 
two-character codes at the right are the old file system equivalent 
codes that were found in ERRVEC(l).) 



C 
C 
C 

C 
C 
C 



SYSCai>ERRD.F EEFINE SYSTEM ERROR CODES AS PARAMETERS 
JPC 15 NOV 76 
NOLIST 

DEFINES ALL ERROR CODES 

INTEGER*2 E$E0F,E$B0F,E$UNOP,E$UIUS,E$FIUS ,E$EPAR,E$NATT 
X E$FDFL,E$DKFL,E$NRIT,E$FDEL,E$NT'UD,E$NTSD,E$DIRE 

X E$FNTF , E$FNnS , E$ENAM , E$EXST , E$DNT'E , E$SHUT' , E$DISK 

X E$BDAM , E$PrRM , E$EPAS , E$BCCC , E$ETRK , E$0LDP , E$BKEY 

X E$BUNT' , E$BSUl\i , E$SUtC! , E$NMLG , E$SDER , E$BUFD , E$BFT'S 

X £$FITB,E$NULL 



PARAMETER 



X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



E$EOF= 1, 
E$BOF = 2, 
E$UNOP= 3, 
E$UIUS= 4, 
E$FIUS= 5, 
E$BPAR= 6, 
E$NATT= 7, 
E$FDFL= 8, 
E$DKFL= 9, 
E$NRIT=10, 

E$Fra;L=ll, 

E$NTUD=12, 
E$NT'SD=13, 
E$DIRE:=14, 
E$FKTF=15, 

E$FNTS=16, 
E$BNAM=17 , 
E^EXST^ie , 
E$DNTE=19, 
E$SHLiT-20, 
E$D1SK=21, 
E$BDAM=22, 
E$PrRM=23, 
E$BPAS=24, 
E$BCOD=25, 
E$BTRN=26, 
E$OLDP=27, 
E$BKEY=28, 



/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



END OF FILE 

BEGINNING OF FILE 

UNIT NOT- OPEN 

UNIT IN USE 

FILE IN USE 

BAD PARAMETER 

NO UFI ATTACHED 

UFD FULL 

DISK FULL 

NO RIGHT 

FILE OPEN ON DELETE 

M3T A UFD 

NOl' A SEGDIR 

IS A DIRECTORY 

(FII£) NOT FOUND 



/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



(FILE) NOI FOUND IN SEGDIR 
ILLEGAL NAME 
ALREADY EXISTS 
DIRECIORY NOl' EMPl^Y 
BAD SBUim (FAM CKLY) 
DISK I/O ERROR 
BAD DAM FILE (F'AM ONLY) 
PTR MISMATCH (FAM OSILY) 
BAD PASSWORD (FAM CNLY) 
BAD CODE IN ERRVEC 
BAD TRUNCATE OF SEGDIR 
OlD PARTITION 
BAD KEY 



PE */ 
t\2 */ 
PD,SD 
SI V 
SI */ 
SA */ 
SL,AL 

V 
V 
V 
V 



V 



SK 
DJ 

sx 

SD 
AR 



V 

- V 

- V 

SH,AH 



V 



SO V 

CA */ 

cz V 

- V 

BS */ 
WE */ 

ss V 

PC, DC, AC V 
AN */ 

- V 

- V 

- V 
~ V 
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X 
X 
X 
X 
X 
X 
X 
X 
X 



E$EUNT=29, 
E$BSUN=30, 
E$SUN0=31, 
E$NMIjG=32, 
E$SDER=33, 
E$BUFD=34, 
E$BFT'S=35, 
E$FITB=36, 
E$NULL=37 



/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



LIST 



BAD UNIT NLIVIBER 
BAD SEGDIR UNIT 
SEODIR UNIT NOT OPEN 
NAME TOO LONG 
SEGDIR ERROR 
BAD UFD 

BUFFER TOO SMALL 
FILE TOO BIG 
(NULL MESSAGE) 



SA 



SQ 



V 
V 
V 
V 
V 
V 
V 
V 



* 



/ 



C EN-D SYSC0f4>ERRD,F 
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1.5 NEK FILE SYSTEM ERROR HANDLING CONVENTIONS 



1.5.1 MOIIVATION 

All the new file system routines described in the previous section 
employ new error handling procedures that will slowly be incorporated 
into other PRIMOS subsystons. Ihe new error handling facilities will 
not affect existing programs, and only programs using the new file 
syston cells need to be aware of the new error handling. 

The new error handling protocol was motivated by the following 
considerations. 

1) Except for a few restricted cases, FORTRAN non-local QOTOs do not 
work in 64V mode (available since REV. 10) . 

2) Non-local QOTOs are a violation of good prograinming practice. 

3). Error information in a recursive/reentrant environment must be 
associated with a particular call, not left in a single static 
place (e.g., ERRVEC) . 



1.5.2 THE RETURN CODE PARAMETER 

All error codes, formerly placed in ERRVEC, are now returned to the 
user in a 16-bit user-supplied integer variable. For example, in the 
call : 

CALL PRWF$$ (KEY, UNIT, L0C(BFR),NW,K)S,RNW,CODE) 

C PRWF$$ (KEY, UNIT, LOC(BFR),Nl\', FOB, RN^V, CODE) 

CODE is an integer PRWF$$ sets to the appropriate return code. 

CODE can be thought of as a replaconent for the (optional) 
alternate-return argument. 

The effect of the old error handling scheme can be achieved through 
code such as: 

CAXL CREA$$ (NAME,NAMI£N,OPASS,NPASS,CCC£) 
IF (CODE.NE.B) GOTO 99 

which would be equivalent to supplying an ALTRIN of $99 in the old 
scheme (except, of course, that GETERR need not be called to obtain the 
error code) . 
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N.B.; CODE should always be checked for zero or non-zer o to ensure 
that errors do not go unnoticed. ~~ ~~~ — ■ 

1.5.3 SIANDARD SYSTEM ERROR CODE DEFINITIONS 

Standard system error codes are PORTRAfJ PARAMETER or PMA EQU variables 
with standardized names. In all cases, zero means no error. Any other 
value identifies a particular error or exceptional (not necessarily 
error) condition. All reference to specific code values (other than 
zero) should be by the standardized names. For convenience, all names 
are defined in two $INSERT files — ERRD.F for FORTRAN and ERRD.P for 
PMA. These files are included in the UFD SYSCOM on Volume 1 of REV. 
13 master disk. 



1.5.4 NEVi ERROR HANDLING ROUIINE 

The following routine — ERRPR$ — provides all the new error handling 
facilities. 



ERRPR$ — Print Standard System Error Message 



Function 

ERRPR$ interprets a return code and, if non-zero, prints a standard 
message followed by optional user text. 

Calling Sequence 

CALL ERRPR$ (KEY, CODE, TEXT, TOTLEN, NAME, NAJVILEN) 



Parameters 



KEY 



An integer specifying the action to take subsequent to 
printing the m.essage. Possible values are: 

K$NRTN~Exit to the system, never return to the calling 
program. 

K$SRT'N~Exit to the syston, return to the calling program 
following an 'S ' command . 
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K$IRTlN — Return immediately to the calling program. 

routine that generated the error. 

TEXT A m.essage to be printed following the standard error message. 
TEXI' is omitted by specifying both TEXT and TXTLEN as 0. 

TXTLEN The length in characters of TEXT. 

NAME The name of the program or subsystem detecting or reporting 
the error. NAME is omitted by specifying both NAME and 
NAMIEN as 0. 

NAMIEN The length in characters of NAME. 



Notes on Usage 

If CODE is 0, no printing occurs, and ERRPR$ immediately returns to the 
calling program. The format of the message for non-zero values of CODE 
is: 

<standard text>. <user 's TEXT if any> «NAME if any>) 

The system standard text associated with CODE is not preceded by any 
newlines or blanks end ends with a period. If TXTLEN is greater than 
zero, this is followed by a blank followed by no more than 64 
characters of TEXT. If NAMLEN is greater than zero, this is followed 
by a blank and no more than 64 characters of NAME enclosed in 
parentheses. The line is terminated with a newline. 

If ERRPR$ is called with the special error code E$NULL, no system 
m.essage is printed. Other paratieters behave normally. 

If ERRPR$ is celled with an unrecognized value of CODE, the standard 
system message is 'ERK)R=ddddd ' , where ddddd is the decimal value of 
CODE. This can be used to display user-defined errors. User defined 
errors should use codes above 100013. 



Examples 

1) Following a call to FRWF$$, if CODE=E$UNOP, the call 

CALL ERRPR$ (K$SRTN,CODE, 'DO A STATUS ',11, 'PRWF$$ ',6) 
would result in the m.essage: 
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UNIT NOT OPEN. DC A STATUS (PRWF$$) 
2) To print a user-defined error message: 

CALL ERRPR$ (K$IRTN,10328, 'MY MESSAGE ',10,0,0) 
will print: 

ERROR=10328. MY MESSAGE 

Coirpatibility 

ERRPR$ provides and extends the functionality of PRERR, 
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1.6 THE BOUNCE PACKAGE 



1.6.1 FUNCTIONALITY 

The "bounce" package is a set of subroutines that handle new file 
systCTi calls in circumstances in vdiich the new file system subroutines 
are not available. The package converts the new file system calls into 
one or more calls to old file system routines, the effect of which will 
be equivalent to the new file system calls. Circumstances under which 
the bounce package is invoked are the following: 

1) New file system calls made by a program running tnder PRIMOS II 

(DOS), SDOS, or RIOS. 

2) A program running under any version of PRIMOS making a new file 
system call that results in a reiriote access across the PRINET 
network. 

1.6.2 BOUNCE PACKAGE IMPLEMENTATION RESTRICTIONS 

The following restrictions apply to programs using the bounce package: 

1) The bounce package, even though it simulates the new file system 
calls, will not work on new partitions. 

2) The bounce package cannot enforce the owner-rights requirement 
when accessing the current UFD — only read or write priveledge 
is required. 

2) For calls that may potentially generate more than one error 
condition, the bounce package is not guarranteed to find the 
errors in the same order as PRIMOS. For example, a call to 
SRCH$$ has both a bad filename and a illegal unit number. PRIMOS 
will return the E$BNAM — illegal name — error, while the bounce 
package will return E$BUNT — bad unit number. 

4) On calls to CREA$$,SPAS$$ GPAS$$, and SATR$$, the bounce package 
uses file unit 16. Calls to these routines with unit 16 open 
will cause unpredictable results. 
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1.6.3 LOADING THE BOUICE PACKAGE 

The bounce package resides in FTNLIB (in UFD LIB) and will be correctly 
loaded by specifying the IDACER 'LIB' comiand. {The package will not, 
howevef , actually be invoked except as noted in 1.6.1 above.) 
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1.7 SAMPLE PROGRAMS 



1.7.1 WRITE SAM PILES 

C SMWRT BIN 29NOV76 PROGRAM TO WRITE A SAM DATA FILE 

C 

C THE FILE IS 1000 WORDS DONG WRITTEN FROM ARRAY BUFF 

C 

C RESTRICTIONS: SAMFIL SHOULD NOT EXIST BEFORE RUNNING PROGRAM 

C 

c 

INTEGER*2 FUNITl /* FILE UNIT TO BE USED 
INTEGER* 2 SAMFIL /* FILE TYPE FOR SAM FILE 
INTEGER* 2 BUFIMG /* BUFFER LENGI'H 



C 
C 



PARAMETER FUNIT1=1, SAMFIL=0, BUFI2vlG=lB00 



INTEGER* 2 BUFF(ELTLNG) /* DATA BUFFER 

INTEGER*2 TYPE /* COOTAINS FILE TYPE RETURNED BY SRCH$$ 

INTEGER* 2 NMREAD /* NUMBER WORDS READ OR WRITTEN BY PRWF$$ 

IM'EGER*2 I 

INTEGER* 2 CODE /* HOLDS ERROR RETURN CODE 

C 

$INSERT SYSCC>1>KEYS.F 

C 

C 

C INITIALIZE BUFFER CONTENTS 

DO 10 1= 1, BUFI^jG 
BUFF (I) = I 
10 CONTINUE 
C 

C OPEN A NEW SAM DATA FILE CALLED 'SAMFIL ' IN CURRENTLY ATTACHED 
C UFD FOR WRITTTNG ON FILE UNIT FUNITl 
C 

C SINCE KEYS.F (KEY DEFINITIONS) DEFINES THE KEYS AS PAJ<AMETERS 
C THE USE OF MULTIPLE MNEMONIC KEYS WILL ICH GENERATE MORE CODE 
C TAN THE USE OF NO-IERIC KEYS. THE USE OF MNIMONIC KEYS IS 
C RECOMMENDED AT ALL TIMES. 
C 

CALL SRCH$${K$WRIT4K$NSAM+K$IUFD, 'SAMFIL ',6, FUNITl, TYPE, 

X CODE) 

IF (CODE.NE.0) GO TO 9010 

IF (TYPE .NE. SAMFIL) GO "10 9000 /* ERROR 
C 
C WRITE 1000 WORDS FROM BUFF IN"I0 THE NEVv DATA FILE 

C 

CALL PRWF$$ (K$WRIT, FUNITl, DX (BUFF) ,EUFLNG,INT'L(0) ,»1READ, 

X CODE) 

IF (CODE.NE.0) GO TO 9010 
C 
C K$CLOS FILE. THIS RELEASES UNIT FUNITl FOR RE-USE AND I^3SURES 
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C ALL FILE BUFFERS HAVE BEEN IvRIlTEK 10 DISK. 

C NOTE PRIMCS WILL NOT AUIOIATICALLY K$CLOS FILES ON 'CALL EXIl '. 

C 

9000 CALL SRCH$${K?CLOS, 0, 0, FUNITl, 0, CODE) 

IF {CODE.NE.0) GO TO 9010 
C 

C RETURN 10 PRIMCS 
C 

CALL EXII 

END 
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1.7.2 WRITE DAME FILE 

C DAMWRT' BIN 29NOV76 PROGRAM TO WRITE A DAM DATA FILE 

C 

C lOTE THAT THE ONLY DlFFEREbCE FRXDM PROGRAM SAMFIL IS THE 

C 'NEV^ FILE ' KEY SUPPLIED TO SRCH$$ IN CREATING THE FILE 

C 

C RESTRICTION: DAMFIL SHOULD NOT' EXIST BEFORE RUNNING PROGRAM 

C 

C 

INTEGEB*2 FUfglTl /* FILE UNIT TO BE USED 
INTEGER* 2 DMFIL /* FILE TYPE OF DAM DATA FILE 
INTEGER* 2 BUFLNG /* DATA BUFFER LENGI'H IN WORDS 



C 
C 



PARAMETER FUNIT1=1, DAMFIL=1, BUFU^G=10e0 



INTEGER* 2 BUFF(EUFIJSiG) /* DATA BUFFER 
INTEGER* 2 TYPE /* FILE TYPE RETURNED BY SRCH$$ 
INrEGER*2 NMREAD /* NUt-IBER WORDS READ OR WRITTEN BY pmF$$ 
INT'EGER*2 CODE /* ERROR CODE RET^URNED FFO-l FILE SYSTEM 
INTEGER* 2 I 

C 

$INSERI' SYSCa'l>KEYS.F 

$INSERT SYSCavl>ERRE'.F 

C 

C 

C INITIALIZE BUUFFER 
C 

DO 10 I = 1, EUFII^G 
BUFF(I) = I 
10 CONTINTJE 
C 
C INSURE THAT THE FILE 'DAMFIL ' DOES t'CT ALREADY EXIST 

C 

CALL SRCH$$(K$REAE+K$IUFD, 'DAMFIL ',6, FU^^IT1, TYPE, CODE) 

IF (CODE .NE. E$EMF) GO TO 9060 /* FILE ALREADY EXISTS 
C 

C OPEN A bEW DAM DATA FILE CALLED 'DAMFIL ' IN T'HE CURRENT 
C UE'D FOR WRITING ON FILE UNIT FUNITl (I.E. CREATE NEW DAM FILE) 
C 

CALL SRCH$$(K$WRIT4K$NDAM+K$IUFD, 'DAMFIL ',6, FUNITl, TYPE, 
X CODE) 

IF (CCDE.NE.0) GO TO 9010 

IF (TYPE .NE. DAMFIL) STOP /* WILL NEVER STOP 
C 
C WRITE THE BUFFER INTO THE FILE 

C 

CALL PRWF$$(K$WRIT,FL'NIT1,DX(EUFF) ,EUFLNG,INTL(0) ,mREAD', 

X CC»E) 

IF (CODE.N^.0) GO TO 9B10 
C 

C K$CDOS THE FILE AND EXIT 
C 
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9000 CALL SRCH$$(K$CLOS, 0, B, FLTSITl, TYPE, CODE) 

IF (CODE.NE.0) GO TO 9010 

CALL EXIT 
C 

9010 CALL ERRPR$(K$NRTN, CODE, 0,0, 0,0) 

END 
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1.7.3 READ A SAM OR DAM FILE 

C REDFIL BIN 29NOV76 READ SAM/DAM FILE, PRIOT LARGEST INTEGER 

C 

C THIS PROGRAM SHOWS HOf; TO USE THE 'CODE ' ERROR RET'URK 

C MECHANISM AND SUBROUTINE ERRPR$ TO PRINT ERROR MESSAGES. 

C 

C NOTE THAT PROGRAM DOESN'T CHECK IF THE DATA FILE IS SAM OR DAM. 

C TO USER'S PROGRAM, SAM OR DAM FILES ARE FUNCTIONALLY ECUIVAIENT 

C EXCEPI' FOR ACCESS TIME TO RAMDOM POINTS IN THE FILE 

C 

C RET'RICTIONS : NONE 

C 

C 

INTEGER* 2 FUNIT /* FILE UNIT TO BE USED 

I^^EGER*2 DAMFIL /* TYPE OF DAM DATA FILE 

INTEGER*2 EUFL^jG /* LENGTH OF DATA BUFFER IN WDRDB 
C 

PARAMEI'ER FUNIT=1, DAMFIL=2, EUFI1>^G=100 

C 

INTEGER*2 BUFF(EUFIlO /* DATA BUFFER 

INTEGER* 2 TYPE /* FILE TYPE RETURNED BY SRCH$$ 

IKTEGER*2 NMREAD /* NUMBER WORDS REAXi OR WRITTEN BY PRWF$$ 

INTEGER*2 CODE /* ERROR CODE RETURNED BY FILE SYSTEM 

INTEGER*2 LARGST /* LARGEST UNSIGNED INTEGER IN FILE 

INTEGER*2 FNAME(16) /* FILE NAME BUFFER 

INTEGER* 2 I,N 

C 

INTEGER*4 POSITN /* 32BIT INTEGER POSITION FOR PRWF$$ 

C 

$INSERT SYSCC^>KEYS.F 

$INSERT' SYSCOM>ERRD.F 

C 

C 

C INITIALIZE AND GET FILE NAME FROM TERMINAL 

C 

LARGST = -32767 /* LARGEST UNSIGNED INTECER 

10 WRITE (1,1000) /* FC'RTRAN UNIT 1 IS TERMINAL 

1000 FORMAT { 'TYPE FILE NAME ') 

C 

READ(1,1010) (FNAMEd), 1=1,16) 

1010 FORMAT (16A2) 

C 

C OPEN FNAME IN CURRENTLY ATTACHED UFD FOR READING ON FILE UNIT 1 

C (NOT THE SAME AS FORT'RAN UNIT 1) . CHECK FOR ERRORS. 

C NOTE THAT THE NAME NEED NOT ACTUALLY BE 32 CHARACTERS LONG AS 

C TRAILING BLANKS ARE IGNORED. 

C 

CALL SRCH$$ (K$REAEH-K$IUFD,FNAME,52,FUNIT, TYPE, CODE) 

IF (CODE .EQ, 0) GO TO 100 /* NO ERRORS 
C 

C PRINT THE SYSTEM ERROR MSG AND IMMEDIATELY RTRN TO THIS PROO^iM 
C IF THE ERROR IS 'FILE NOT FCXJND', dH? ANOTHER NAME. 
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C GIVE UP ON ALL OIHER ERRORS 

C 

CALL ERRPR$(K$IR1K, CODE, FNME, 32, 'REDFIL', 6) 

IF (CODE.E0.E$FWIF) GO 10 10 /*NOT FOUND-GET ANOIHER NAME 

GO TO 9010 /* ANOTHER TYPE OF ERROR - GIVE UP 

C 

C THE FILE HAS BEEN OPENED. 

C MAKE SURE THE FILE IS NOT A DIRECTORY 

C 

100 IF (TYPE .GI. DAMFIL) GO TO 9000 /* IS A DIRECTORY 
C 

C READ AN 'OPTIMAL ' NUMBER OF WORIS UP TO BUFLNG WORDS FROM FILE . 
C SET^ LARGST' TO THE LARGEST UNSIGNED INTEGER IN THE FILE. 
C CHECK FOR END-OF-FILE. 
C 

50 CALL PRWF$$ (K$REAI>fK$CCNV, FUNIT, LOC (BUFF) , BUFLNG, 
X INTL ( ) , NMREAD , CODE ) 

IF (CODE .EQ. E$EOF) GO TO 31 /* END-OF-FILE 

IF (CODE .NE. 0) GO TO 9010 /* SOME OT'HER ERROR 
31 DO 40 1= 1, NMREAD /* FOR EACH WORD ACTUALLY READ 

IF ( (LARGST. LE.0) .AND. (EUFF(I).GE.0)) LARGST = BUFF(I) 
IF (LARGST .LT. EUFF(I)) LARGST = BUFF(I) 
40 CONTINUE 

IF (CODE .NE. E$EOF) GO TO 30 /* MORE DATA IN FILE 
C 

C FIND OUT' IF THE DATA FILE IS EMPTY 

C GET CURRENT FILE POINTER POSITION WHICH IS NOW' AT ENT)-OF-FILE. 
C IF THE POSITION IS 0, THE FILE IS EMPTY 
C 

CALL FRWF$$(K$RPOS, FUNIT, 0, 0, POSIT"N, NMREAD, CODE) 

IF (CODE .NE. 0) GO TO 9010 /* ERROR 

IF (POSITN .GI. 0) GO TO 50 /* NOT A NTJLL FILE 

WRITE (1,1030) 
1030 FORMAT ( 'FILE EMPTY ') 

GO TO 9000 /* EXIT 
C 

C FILE NOT' EMPTY. PRINT LARGEST INTEGER 
C 

50 WRITE (1,1020) LARGST 
1020 FORMAT ('LARGEST INTEGER IN FILE IS ',16) 

GO TO 9000 /* EXIT 
C 

C K$CLOS FILES EXIT 
C PRINT ERROR MESSAGE IF NECESSARY 
C 

9010 CALL ERRPR$(K$IRTN, CODE, 0, 0, 'REDFIL ', 6) 
C 
9000 CALL SRCH$$(K$CLOS, 0, 0, FUNIT, TYPE, CODE) 

IF (CODE.NE.0) GO TO 9010 

CALL EXIT 

END 
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1.7.4 CREATE A SEGMENT DIRECIOFY 

C CFT'SEG BIN 29NOV76 CF£ATE A SEOnEwT DIRECTCRY 
C AND WRITE EftTA FILE IN IT 

C 

C RESTRICTIOI^ : SEGDIR SHOULD NOT' EXIST BEFORE RUNlsiING PROGRAM 

C 
C 

INTEGER* 2 EUFU^JG /* DATA BUFFER LENGT'H 

INTEGER* 2 SAMSEG /* FILE TYPE OF SAM SEGMENT DIRECTCRY 

INTEGER*2 SGUNIT /* FILE L^'IT FOR SEQUENT DIRECTORY 

INT'EGER*2 FUNIT /* FILE UNIT' FOR DATA FILE 



C 
C 



PARAMET'ER BUFD^G=I0, SAMSEG=2, SGUKIT=1, FUNIT=2 



INTEGER*2 BUFF{BUFLJNIG) /* DATA BUFFER 

INTEGER*2 TYPE /* FILE TYPE RETURNED BY SPCH$$ 

INTEC2;R*2 NMREAD /* NUI-^BER WORDS READ OR WRITTEN BY PRVvF$$ 

INTEGER* 2 I 

INTEGER* 2 CODE /* RETURN CODE STORED HERE 

INTEGER* 2 CODEA /* SCRATCH CODE 

C 

$INSERT SYSCaOKEYS.F 

$INSERT SYSCa4>ERRD.F 

C 

c 

C INITIALIZE DATA BUFFER CONTENTS 
C 

DO 10 1= 1, EUFIKG 
BUFF (I) = I 
10 CONTINUE 
C 

C OPEN A NEW SAM SEG^5ENT■ DIRECTCRY CALLED 'SAMDIR ' IN CURRENTLY 
C ATTACHED UFB FOR READING AND WRITING ON FILE UNIT SGUNIT. 
C NOTE: SEGDIRS OPEN FOR WRIIE ONLY WILL NOT' BE HANDLED CORRECTLY 

C 

CALL SRCH$$(K$RDWR+K$NSGS+K$IUFD, 'SEGDIR ',6, SGUNIT ,TY:PE, 

X CODE) 
IF (CODE.NE.0) GO TO 9500 
IF (TYPE. NE. SAMSEG) GO TO 9500 /* ERROR— MUST HAVE EXISTED 

C 

C ENTER A NEW SAM DATA FILE (I.E. OPEN SAM DATA FILE FOR WRITING) 

C IN THE JUST CREATED SEGMENT DIRECTORY. THE NEW DATA FILE 

C WILL BE ENTRY IN THE SEQUENT DIRECTORY. 

C 

CALL SRCH$$ (K$WRIT4K$NSAM4K$ISEG,SGUNIT,0, FUNIT, TYPE, CODE) 

IF (CODE.NE.0) GO TO 9500 
C 

C WRITE THE DATA BUFFER IN^C THE JUST CREATED SAM FILE. 
C K$CIjOS the data FILE. 
C 

CALL PRWF$$(K$WRIT, FUNIT, IDC (BUFF) ,EUFti^G,INTL(0) ,WReAD, 

X CODE) 
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IF {C&DE.NE.0) GC 10 9500 

CALL SI<CH$$(K?CIiOS, B, 0, FLWT, 0, CODE) 

IF (CODE.NE.e) GO 10 S500 
C 

C REPLACE BUFF Willi NEW DATA 
C 

DO 20 1= 1, BUFIA'G 
EUFF(I) = I * 10 
20 CONIINUE 
C 

C OPEN A DIFFERED NEW SAM DATA FILE ON FUNIl FOR WRITING 
C (I.E. ENTER ANOTHER FILE IN SEGMENT' DIRECTORY). THIS IS DONE 
C IN TWO STEPS. FIRST THE FILE POINTER OF THE SEGMENT' DIR UNIT IS 
C POSITIONED TO THE ENTRY NUMBER DESIRED, THE SRCH$$ IS 
C CALLED AS ABOVE. 
C 

CALL SGDR$$(K$SFOS,SGUNIT, 1, I, CODE) 

IF (OODE.NE.0) GO TO 9500 

IF (I .NE. -1) GO TO 9500 /* ERROR EXIT 
C 

C NOTE THAT THE SEOIENT' DIRECTORY OPEN C^l SGUNIT HAS ONLY 1 ENTRY 
C (ENTRY 0) AT THIS TIME. THUS, POSITIONING TO ENTRY 1 
C WILL POSITION TO END-OF-FILE (NOT BEYOND) AND THE FOLLOWING 
C CALL TO SRCH$$ WILL CAUSE THE SEGMENT' DIRECTORY TO BE EXTENDED 
C IN LENGTH BY ONE ENTRY. 
C 

CALL SRCH$$ (K$WRIT+K$NSAM4K$ISEG, SGUNIT, 0,FUNIT,TYPE,CODE) 

IF (COBE.N'E'.0) GO TO 9500 
C 

C WRITE DATA INTO THE SAM FILE THE K$CIDS I'HE FILE 
C 

CALL PRWF$$(K$WRIT,FUNIT,LCX:(BUFF) ,EUFLWG,INTL(0) ,mREAD, 
X CODE) 

IF (CODE.NE.0) GO TO 9500 

CALL SRCH$$(K$CLOS, 0, 0, FUNIT, 0, CODE) 

IF (CODE.NE.0) GO TO 9500 
C 

C REPLACE THE BUFFER WITH NEW DATA 
C 

DO 30 1= 1, BUFUJG 
BUFF (I) = I * 100 
30 CONTINUE 
C 

C MAKE THE SEGMENT DIRECTORY ITSELF LARGE ENOUGH TO COrtAIN 
C 10 ENTRIES. PLACE A SAM FILE IN THE 10TH ENTRY. 
C 

CALL SGDR$$(K$MSIZ, SGUNIT, 10, 0, CODE) 

IF (CODE.NE.0) GO TO 9500 
C 

C THE FILE POINTER ASSOCIATED WITH SGUNIT IS NOW AT END-OF-FILE. 
C A CALL TO SRCH$$ WITHOUT FURTHER POSITIONING THE SEGMENT' 
C DIRECTORY 'S FILE POINTER WOULD EXTEND THE SEGMENT DIRECTORY 
C AND ENTER THE NEW FILE AS TH llTH ENT'RY. THEREFORE, SGDR$$ 
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C MUST EE CALLED TC POSITION TO THE 10TH ENTRY. 
C 

IF (CODE.NE,0) GO TO 9500 

IF (I .ISE. 0) STOP /* FILE CANNOT' BE PRESENT' 

C 

CALL SRCH$$ (K$WRIT+K$NSAM+K$ISEG,SGUNIT,0,FUNIT,TYPE,CODE) 

IF (CODE.NE.0) GO TO 9500 

CALL PRWFS$(K$WRrr,FUNIT,LX(BUFF) ,BUFLNG,INTL(0) ,M"1REAB, 

X CODE) 
IF {CODE.NE.0) GO TO 9500 

CALL SRCH$$(K$CLOS, 0, 0, FUNIT, TYPE, CODE) 
IF {CGDE.M:.0) GO TO 9500 

C 

C K$CLOS SEGMEOT DIRECTORY EXIT 

C 

CALL SRCH$$(K$CLDS, B, 0, SOJNIT, TYPE, CODE) 

IF (CCDE.NE.0) GO TC 9500 

CALL EXIT 
C 

C ERROR EXIT. K$CIJ0S ALL UNITS. PRINT ERROR MESSAGE AND DO NOT 
C ALLav RESTART. E$NTJLL IS THE NULL SYSTEM ERROR, I.E., 
C NO SYSTEM ERROR MESSAGE IS PRINTED. 
C 
9500 CALL SRCH$$(K$CLOS, 0, 0, FUNIT, TYPE, CCDEA) 

CALL SRCH$$(K$CLOS, 0, 0, SGU1«T, TYPE, CODEA) 

CALL ERFi=R$ (K$NRTN ,CODE , 'UNEXPECTED ERROR ',16 , 'CRTSEG ' , 6) 
C 

END 
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1.7.5 READ A LOGICAL RECORT .'^RO'l A FILE 

C RDLREC BIN 29NOV76 REAJJ A LCX^ICAL RECORD FRCM A FILE 

C 

C PROGRAM READS LOGICAL RECORD 'N ' FRCM A FILE CONSISTING 

C OF FIXED LENGTH RECORES 

C 

C IN THIS PROGRAM, THE FILE ACCESSED IS CONSIDERED TO CONTAIN AN 

C UNLIMIIED NUMBER OF LOGICAL RECORES. EACH RECORD CaJTAINS 'M ' 

C WORDS. THE PROGRAM READS AND PRINTS TO THE TERMINAL THE 

C CCNTEKTS OF' RECORD NUMBER N AS M INTEGERS. TTiE FIRST RECORD 

C OF A FILE IS RECORD InIUMEER (ZERO) . 

C NOIE THAT A LOGICAL RECORD IS MERELY A GROUPING OF WORDS IN A 

C FILE. THE LOGICAL RECORD SIZE HAS NO RELATION TO THE PHYSICAL 

C RECORD SIZE OF THE DISK. 

C 

C RESTRICTIONS: 

C 1. RECORD SIZE MUST BE BETWEEN 1 AND BUFFER liNGTH 

C 2. RECORD NTJMEER MUST BE BETWEEN MID 32767 

C 3. THE RECORD MIBT BE IN THE FILE 

C 4. THE FILE MUST PREVIOUSLY EXIST 

C 5. THE FILE MUST BE A DATA FILE (SAMFIL OR DAMFIL) 

C 

C 

INTEGER*2 FUNITl /* PRIMOS FILE UNIT USED FOR DATA FILE 
INTEGER*2 EUFUJG /* LENGTH OF DATA BUFFER 

C 

PARAMETER FUNITI=1, BUFIM5=1000 

C 

INTEGER* 2 BUFF(EUFUiG) /* DATA BUFFER 
INTEGER* 2 FNAME{I6) /* FILE NAME BUFFER 
INTEGER*2 RECSIZ /* NUMBER WORDS IN A LOGICAL RECORD 
INTEGER*2 RECNUI^ /* LOGICAL RECORD NUMBER 
IN1EGER*2 TYPE /* FILE TYPE RETURNED BY SRCH$$ 
INTL'EGER*2 NMREAD /* NUMBER WORDS READ, RETURNED BY PRWF$$ 
INTEGER*2 CODE /* ERROR STATUS RETURNED BY FILE SYSTEM 
INT'EGER*2 I 

C 

INTEGER*4 POSITN /* 32BIT WORD NR USED AS POS 10 PRWF$$ 
C 
C 

$INSERT SYSC0M>KEYS.F 
$INSERT SYSCOM>ERRD.F 
C 
C 

C ASK FOR FILE NAME 
C 

10 WRITE (1,1600) /* FORTRAN UNIT 1 IS TTY 
1000 FORMAT ( 'TYPE FILE NAME ') 
C 

C READ FILE NAME 
C 

READ(1,1010) (FNAflE(I),I=l,16) 
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1010 FORMAT {16A2) 
C 

L (JFt/N riVMfiH 11\ UUKtlClVi UCU run IM:jnl>J.l\ij vji>. r iijio UHJ.J. i. wiii-u. x 

c 

CALL SRCH$$ (K$REAEH-K$IUFD, F^•AME, 32, FUNITl, TYPE, CODE) 

IF (CCDE.NE.e) GO TO 10fc0 
C 

C ASK FOR LOGICAL RECORD SIZE 
C 

20 WRITE (1,1020) 
1020 FORMAT ('TYPE RECORD SIZE') 

READ (1,1030) RECSIZ 
1030 FORMAT (16) 

IF (RECSIZ .GE. 1 .AND. RECSIZ .LE. BUFUvG) GO- TO 30 

i^iRITE (1,1040) 
1040 FORMAT ( 'BAD RECORD SIZE ') 

GO TO 20 
C 
C ASK FOR RECORD NUMBER. FIRST RECORD IS NUMBERED £ (ZERO) 

C 

30 WRITE (1,1050) 

1050 FORf'IAT ( 'TYPE RECORD NUMBER ') 
READ (1,1030) RECNUI'i 

IF (RECKUM .GE. 0) GO TO 35 
WRITE (1,1051) 

1051 FORMAT ( 'BAD RECORD NUMBER ') 
GO TO 30 

C 

C CALCULATE THE 32-EIT WORD NUMBER OF THE FIRSl WORD It^ THE 

C DESIRED RECORD.. N01E THAT IF EGI'H RECSIZ Ai® RECNL^I AI-.E BOTH 

C POSITIVE 16BIT NUMBERS, THE 32BIT WORD NUMBER MUST ALSO EE 

C POSITIVE. 

C 

C roSITIONING MAY BE DOME TO AN AESOLUl'E WORD NUMBER OR RELA1IVE 

C TO THE CURRENT POSITION. SINCE A JUS^ OPENED FILE IS ALWAYS 

C EOSITIONED TO TOP-OF-FILE AND THE CALCULATED WORD NUMBER WILL 

C NEVER BE NEGATIVE, THE ARGUMENT FOR fOSITIOK TO PRWF$$ WILL 

C BE THE SAME FOR BOTH CALLS IN THIS PROGRAT-l. 

C 

"5 POSITN=INTL (RECSIZ) *INTL(RECNUM) /* POSITN IS INTEGER*4 
IF (POSITN .GI-. 32767) GO TO 100 /* ABSOLUTE POSITIONING 

C 

C RECORD LESS THAN 32767 WORDS FRQ-l THE EETilNNING, USE RELATIVE 

C POSITIONING. 

C NOT'E THAT ABSOLUTE POSITIONING COULD HAVE BEEN USED FOR A 

C RECORD ANYWHERE IN THE FILE, NOT JUST' FOR THOSE RECORDS 

C BEYOND WORD 32767. RELATIVE IS SHCWT^ HERE ONLY FOR EXAMPLE. 

C 

C NOTE Also THAT RELATIVE POSITIONING COULD BE USED 10 POSIIION 

C TO AN-Y WORD IN THE FILE, GIVEN THE RESTICTIONS ON RECSIZ ANT) 

C RECNU^l. 

C 

C WHEN REL POSITIONING IS USED, THE POS ARGUMENT: (POSITN HERE) 
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C IS CONSIDERED TO BE A SIGNED 32-BIT INTEGER. 
C 

CALL PRWF?$(K$READ4K$PRER,FUNIT1,L0C(BUFF) ,RECSIZ,K)SITN, 
^ NMREAD, CODE) 

GO TO 200 /* SKIP OVER ABSOLUTE POSITION EXAMPLE 
C 

C RECORD IS MORE THAN 32767 WORDS FROM THE BEGINNING OF FILE, USE 

C ABSOLUTE BDSITIONING. 

C 

C WHEN AESOLUT'E POSITIONING IS USED, POSITION ARGUI-IENT^ (fOSITN) 

C IS CONSIDERED TO BE AN SICKED 32-BIT INT'EGER. 

C NOTE THAT THE E$BOF ERROR (BEGINNING OF FILE) CAN OCCUR. 

C 

100 CALL PRWF$$(K$READ+K$PREA,FUNIT1,DOC(EUFF),RECSI2,EOSITN, 

X NMREAD, CODE) 

C 

200 IF (CODE .NE. 0) GO TO 300 /* ERROR DETECTED 

C 

C HAVE READ RECORD, KM TYPE IT. 

C 

WRITE (1,1060) RECNUM,RECSIZ 
1060 FORMAT ( 'RECORD ',16, ' COWIAINS ',16, ' ENTRIES AS FOLLOWS') 

WRITE(1,1070) (BUFF(I), I=1,RECSIZ) 
1070 FORMAT (1017) 
C 

C RETURN TO DOS AFTER CLOSING THE FILE 
C 
250 CALL SRCH$$(K$CtDS, 0, 0, FUNITl, TYPE, CODE) 

IF (OODE.NE.0) GO TO 1000 

CALL EXIT 

GO TO 10 /* START' COMMAND RESTARTS PROGRAM 
C 

C ERROR WHILE ATTEMPIING TO READ THE RECORD 
C 
300 CALL ERRPR$(K$IRTN, CODE, 0, 0, 'RDLREC, 6) 

IF (CODE .NE. E$EOF) GO TO 250 /* EXIT IF NOT END-OF-FILE 
C 

C END-OF-FILE REACHED. 
C REWIND FILE AND TRY AGAIN 
C 

CALL PRWF$$(K$POSN+K$PREA,FUNrn,0,0,n«L(0) , NMREAD, 
X CODE) 
IF (CODE.NE.0) GO TO 1000 
GO TO 20 
C 

1000 CALL ERRPR$(K$NRIN, CODE, 0,0, 0,0) 
END 
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1.7.6 Bead File in Segrrent Directory 

t KLDStG BIN zyiMUV/b KJtV-iU c HjH j.N a DriVjfi&ivi u±t^^iXji^x 

C 

C THIS PROGRAM READS E'lLE NUMBER N IN SECa^lENT DIREaORY AND 

C TYPES V>iORD NUMBER M IN THAT FILE. THE FIRST^ FILE IN THE 

C DIRECTORY IS FILE NUMBER 0. THE FIRST WORD IN THE FILE IS 

C VvCRE' NUMBER £. 

C 

C RESTRICTIONS: 

C 1. THE SEGMENT DIRECTCRY FILE MUST EXIST 

C 2. THE FILE NLtMEER MUST BE BETViEEN ANT) 32767 

C 3. THE FILE MUST BE IN THE SE(34EN'T^ DIRECTORY 

C 4. THE WORD NLFiBER MUST BE BET^'iEEN AND 32767 

C 5. THE WORD MUST BE IN THE FILE. 

C 

C 

INTEGER*2 FUNIT /* PRIMCB FILE UNIT FOR DATA FILE 
INTEGER*2 SGUNIT /* PRIMOS FILE UNIT FOR SEQUENT DIRECTORY 
INTE0:R*2 SAMSEG /* file TYPE OF SAM SEQIENT DIRECTORY 
INTEGER*2 DAMSEG /* FILE TYPE OF DAM SEQ4ENT DIRECTORY 

C 

PARAMETER FUNIT=2, SGUrnT=l, SAMSEG=2, CAMSEG=3 

C 

INTEGER*2 BUFF /* DATA BUFFER 

INTEGER*2 SEGDIR(16) /* NA^iE OF SEGMENT' DIRECTORY BUFFER 
INTEGER* 2 FILNTJM /* FILE NR (EN^RY NR) OF FILE IN SEGDIR 
INTEGER*2 WRDNW /* WjRD NWEER in DATA FILE TO BE READ 
IbnEGER*2 CODE /* ERROR CODE RETURNED BY FILE SYST'EM 
INTEGER*2 TYPE /* FILE TYPE RETURNED BY SRCH$$ 
INTEGER*2 NMREAB /* NR WORDS READ/VvRITTEN/RTRNED BY PRWF$$ 
INTEGER* 2 I 

C 

$INSERT SYSCaM>KEYS.F 

$INSERI SYSCai>ERRD.F 

C 

C 

C INSURE FILE UNITS TO BE USED ARE K$CLOSD 

C ASK FDR AND READ SEGMENT' DIRECTORY NAME FROM TERMINAL 

C 

10 CALL SRCH$$(K$CLOS, 0, 0, SGUNIT, 0, CODE) 
IF (CODE.NE.0) GO TO 100 
CALL SRCH$${K$CLOS, 0, 0, FUNIT, 0, CODE) 
IF (CODE.NE.0) GO TO 100 
WRITE (1,1000) 

1000 FORMAT ( 'TYH; SE(34ENT DIRECTORY NAME ') 
READ (1,1010) (SEGDIR(I), 1=1,16) 

1010 FORMAT (16A2) 

C 

C OPEN THE SEGMENT DIRECTORY FOR READING ON SGUNIT 

C 

CALL SRCH$$ {K$REAE4K$IUFD, 'SEGDIR', 6, SGUNIT, TYPE, CCCE) 

IF (CODE.NE.0) GO TO 100 
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C 

C T'YPE CONTAINS THE FILE TYPE OF THE FILE JUST OPENED 

C MAKE SURE THE FILE IS EITHER A SAM OR DAM SEGMENT DIRECTORY. 

C ALLCWABLE TYPE VALUES ARE 2 AND ^. 

C 

IF (TYPE ,E0. SAMSEG) QO TC 20 

IF (TYPE .EO. DAMSEG) GO TO 20 
C 

C NOT A SEGMENT DIRECTORY - TRY AGAIN 
C 

WRITE (1,1020) 
10213 FORMAT ('FILE IS Wfl A SEC^IENT DIRECTORY') 

GO TO 10 
C 

C ASK FOR FILE (ENT'RY) NUtffiER IN SEGMENT DIRECTORY 

C 

20 WRITE (1,1030) 

1030 FORMAT ( '1YFE FILE NUMBER ') 

READ (1,1040) FILNUM 
1040 FORMAT (16) 

IF (FILNUM .LT. 0) GO TO 20 
C 

C ASK FOR WORD NUMBER IN DATA FILE TO READ 

C 

30 WRITE (1,1035) 

1035 FORMAT ( 'TYPE WORD NUMBER ') 

READ (1,1040) WRDNUM 

IF (WRDNUM .LT. 0) GO TO 30 
C 

C TRY TO POSITIONED WORD NTJMBER IN THE SEGMENT DIRECTORY. 
C IF END-OF-FILE REACHED, FILE IS NOT' IN SEOIENT DIRECTORY. 
C SGDR$$ RETURNS THE VALUE 1 IN THE 4TH ARGUMENT' (TYPE) IF A 
C FILE IS EWI'ERED IN THE ENTRY POSITION. THIS PROGRAM DOES NOI 
C CHECK THE VALUE, SINCE SRCH$$ WILL RETURN THE PROPER ERROR CODE 
C (E$FNTS - FILE NOT FOUND IN SEGMENT DIRECTORY) ANYHOW. 

CALL SGDR$$(K$SPOS, SGUNIT, FILNUM, TYPE, CODE) 

IF (CODE .EC. E$EOF) CODE = E$FNIS /* FILE NOT FOUND 

IF (CODE .NE. 0) 00 TO 100 

C 

C OPEN FILE IN SEGMENT' DIRECTORY FOR READING 

C 

CALL SRCH$$ (K$READ+K$ISEG,SGUNIT,0,FUNIT,TYPE,CODE) 
IF (CODE .NE. 0) GO TO 100 
C 

C PRINT' THE WORD, K$CLOS THE FILES, AND RETURN TC PRIMOS 
C 

WRITE(l,ie50) WRDNUM, FILNUM, (SEGDIR (I), 1=1, 16), BUFF 
1050 FORMAT ( 'WORD ',16, ' OF FILE (',16,') IN ',16A2, 

X 'CONTAINS ',16) 
50 CALL SRCH$$(K$CLOS, 0, 0, FUNIT, 0, CODE) 

CALL SRCH$$(K$CLOS, 0, 0, SGUNIT, 0, CODE) 

CALL EXIT 
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GO TO 10 /* START CCHMAM) RE-SIARTS PWCRPFi 
C 
C 

C CCMMCa^" ERROR HANDLER 

C NOTE THAT THE NEW FILE SYS PROPERLY DIFFERENTIAIES THE VARIOUS 
C ERRORS WHICH FORMERLY WERE GROUPED UNDER OLD ERROR CX)DE 'SQ' 

C 

100 IF (CODE.EQ.E$FNTS) GO TO 110 /* FILE NOT' FOUND IN SEGDIR 
IF (CODE ,EQ. E$EOF ) GO TO 120 /* END-OF-FILE 
CALL ERRPR$(K$IRTW, CODE, 0,0, 'REESEG',6) /* PRINT ERROR MSG 
GO TO 50 /* K$CLOS FILES EXIT 

C 

C FILE NOT FOUND IN SEGMENT DIRECTORY 

C LET THE USER TRY AGAIN 

C 

110 WRITE(1,1060) FILNUM, (SEGDIR(I), 1=1, 16) 

1060 FORMAT ( 'FILE ( ',16, ') YUl FOUND IN M6A2) 
GO TO 10 /* RE-TRY 

C 

C END-OF-FILE 

C CODE WILL CONTAIN E$EOF ONLY WHILE TRYING TO READ 

C THE DATA FILE. ALLCW RE-TRY. 

C 

120 WRITE(1,1070) WRDtWl,FILNTJM,(SEGDIR(I),I=l,16) 

1070 FORt^T ( 'WORD ',16, ' NOT- IN FILE (',16,') IN ',16A2) 

GO TO 10 /* RE-TRY 
C 

END 
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1.8 INTERNAL FILE SYSTEM FORMATS 

The following describes the internal formats of 
both the old end new file syston. Ihese have been 
for ease in noting the changes that have been made, 
normally have no need to refer to the internal 
All numbers are decimal unless preceded by a ': 
field names are the same as those used by the 
routines. 



all disk records for 

collected together 

User programis will 

file system formats. 

tvhere possible, 

internal file system 



1.8.1 DSKRAT FORMATS 



1.8.1.1 DSKRAT Format ~ Old Partitions 






5 


1 


RECSIZ 


2 


NFiRECS 


J 


UNUSED 


4 


NHEADS 


5 


DATA 



NUI4BER OF WORES IN BSKRAT HEATER = 5 

DISK RECORD SIZE (448 or 1040) 

NUMBER RECORDS IN PARIITION 

UNUSED 

NUMBER HEADS IN PARTITION 

START OF DKSRAT DATA (ONE BIT/RECORD) 



1.8.1.2 DSKRAT Format — New Partitions 




1 

2 

4 
5 
6 

7 
8 



RECSIZ 



NMRECS 



NHEADS 



RESERVED 



RESERVED 



RESERVED 



DATA 



NUMBER WORDS IN HEAIER = 8 

RECORD SIZE 

NUMBER RECORDS IN FARIITON (TWO WORDS) 

NUMBER HEADS IN PARTITION 

RESERVED 

RESERVED 

RESERVED 

SIART OF DSKRAT mTA (ONE BIl/RECORD) 



1.8.2 RECORD HEADER FORI^ATS 

Note: record header formats are the samie for new and old partitions. 
The format of a record header is a function of the physical record 
size. 
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1.8.2.1 Record Heeder Formet -- 448-Vvord Records 




1 



EEKCRA 



REKBRA 
REKFPr- 



REKBPT 



REKCNl' 



5 I REKTYP 

6 ! REKLVL 



7 i RESERVED 



RECORD ADDRESS (OF THIS RECORD) 

RA OF DIRECTORY ENTRY OR FIRST RECORD 

RA OF NEXT SECOENI'IAL RECORD 

RA OF PREVIOUS RECORD 

NUI-IEER DATA WORDS IN FILE 

TYPE OF THIS FILE 

INDEX LEVEL FOR NEW PARTITION DAM FILES 

RESERVED 



1.8.2.2 Record Header Format -- 1040-Kord Records 

RECORD ADDRESS OF THIS RECORD (TWO WORDS) 

BEGINNING RECORD ADDRESS (TVjO WORDS) 

NUt4EER DATA WORDS IN THIS RECORD 

TYPE OF THIS FILE 

RA OF NEXT SEQUENT'IAL RECORD (TWO WORDS) 

RA OF PREVIOUS RECORD (TWO WORDS) 

INDEX LEVEL FOR NEW PARTITION DAM FILES 

RESERVED (FIVE WORDS) 



Notes 

1) All disks except Storage t-todule have 448-word records. Storage 
Modules have 1040-word records. 

2) The BRA of the first record in a file points to the beginning record 
address of the directory in viiich the file entry appears. In all 
other records, the BRA points to the first record of the file. 

3) FORPI'R contains the address of the next sequential record in the 
file or if it is the last record in the file. 

4) BACPTR contains the address of the previous record in sequence or 
if it is the first record in the file. 






REKCRA 1 
1 


2 


REKBRA 1 
1 


4 


1 REKCNT' 1 


5 


1 REKTYP 1 


6 


1 REKF'FI- 1 
1 1 


8 


1 REKEPT 1 
1 1 


10 


1 REKLVL 1 


11 
15 


1 1 

1 1 

i RESERVED! 

1 1 
1 1 
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5) FILTYP is V5lid only in the first record of a file, 
are: 

SAM File 

DAM File 

SAM Segment Directory 

DAM Segment Directory 

User File Directory (UFD) 



Legal values 




1 

2 

3 

A 



6) If the file is the record zero bootstrap (BOOT) or the disk record 
availability table (DSKRAT or volume nair.e) and the disk has a 1040 
record size (Storage Module), bit 1 (: 100000) of FILTYP will be set. 

7) DAM files on new partitions are organized somewhat differently fron 
the above — see Section 1.8.5. 



1.8.5 UFD HEADER AND EMRY FORMATS 



1.8.3.1 Old UFD Header Format 



e 

1 



OPASSVv 



NPASSW 



RESERVED 



SIZE OF HEADER — 8 WORDS 
avNER PASSWORD (THREE TORES) 



NON-OWER PASSWORD (THREE WORDS) 



RESERVED 



1.8.3.2 New UFD Header Form,at 



23 



ECW 



OPASSW 



NPASSW 



RESERVED 



ECW (SEE NOI'E 1 BELOW) 
OWNER PASSWORD (THREE WORDS) 



NON-OWNER PASSWORD (THREE WORDS) 



RESERVED (SIXTEEN WORDS) 
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1.8.3.3 Old UFD Entry Format 



I BRA 

1 I FILE 
I 



4 I SPACES 



5 I PROTEC 



EEGIM^ING RECORD ADDRESS 
FILEMME {THREE WORDS) 

TWO BLANKS FOR NMIE EXPAt^IOW (RESERVED) 
PROTECTION (ON'KER/NON-a^NER) 



Notes 

in an olc UFD, the high-order eight bits of PROTEC ere the owner rights 
stored in coinpleirented form (0=>owner has right) . The low-orcer eight 
bits ere non-cvs-ner protection, stored in true forin (0=>no right) . On 
creation, PROTEC=0. After a 'PROT 7 0', PROTEC=: 174000. 



1.8.3.4 New UFD Entry Format 



I ECt\ 1 


1 1 ERA 1 
1 1 


3 1 RESERVED! 
1 1 
1 1 


6 1 PROT'EC 1 


7 1 RESERVED 1 


8 i DATMDD i 


9 1 TI^MDD 1 


10 i FILTYP 1 


11 1 SC^ 1 


12 IF 1 
1 I 1 
1 L 1 
1 E 1 
1 ... 1 
IN 1 
1 A 1 
1 K 1 
N 1 El 



ENTRY COWI'ROL V\CRD (TYPE/LENGTH) 
BEGINNING RECORD ADDRESS (TKC WORDS) 

RESERVED (THREE WORDS) 



PROTECTIO>; (a\NER/NCN-OWNER) 
RESERVED FOR FUTURE USE 



iiiM M V.rT~ nrin \ 



DATE LAST MODIFIED (YYYYYYYMMf=if^ 

TIME LAST MODIFIED (SECaC)S-SINCE-MIDNIGHT/4) 

FILETYPE 

SUBENTRY CONTROL WORD FOR FILENAME 



FILENAME (1-16 WORDS, BLANK PADDED) 



Notes 

1) The Entry Control Word (ECW) consists of two eight-bit subfields. 
The top eight bits indicate the type of the following entry as 



follows: 




1 
2 

"3 



Old UFD Header 
New UFD Header 
Vacant Entry 
New UFD File Entry 
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eS iSelf!^' ^'^^^ "'^^ ^'''^ ^^^ ^'^^ °^ ^^^ ^^^^^ including the 

2) The bitsin PROTEC ere stored in true form (0=> no right) for both 
owner ana non-owner fields. ^^^^^ 

3) The file type field is as before (see Cld Record Header Format) with 
following additional bits: 

BIT MEANING WHEN BIT IS ON 
1 File has 16-word header (DSKRAT and BOOT' only) . 
^ Special file (BOOT, DSKRAT, MFD, EABSPT) . 

4) The Subentry Control Word (SOW) consists of two eight-bit subfields. 
ihe top 8 bits are 0, indicating subentry type 0. The low-order 8 
bits give the size of the subentry including the SOW itself. 

5) N.E.: UFD entries are reused by the new file system. This means 
that a new entry will not necessarily appear at the end of the UFD. 

1,8.4 SEGMENT DIRECTORY FORMATS 



1.8.4.1 Old Segment Directory Format 




1 
2 

N 



BRA0 



BRAl 



0000 



BRAn 



BRA OF FIRST- ENTRY IN DIRECTORY 
BRA OF SECCM) FILE 
NULL ENT'RY 

BRA OF LAST FILE IN DIRECTORY 



1.8.4.2 New Segment Directory Forma t 




2 



2N 



ERA0 



BRAI 



0000 
0000 



BRAn 



BRA OF FIRST FILE IN DIRECTORY (TWO WORIS) 
BRA OF SECOND FILE IN DIRECTORY (TWO WORDS) 
NULL ENTRY (TWO WC^DS) 

BRA OF LAST FILE IN DIRECTORY (TWD WORDS) 
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Notes 

The only difference betv^'een old and new directories is that each entry 
hcs been expanded to two words. A null entry in a new directory is a 
32-bit e. 



1.8.5 DAflFILE ORGANIZATION 

In old-style DAM files, the first physical record of the file was 
reserved to be an index to the first AM or 1024 (depending on physical 
record size) records in the file. Wtien this index was filled, however, 
access to subsequently added records becaiTie sequential. For example, 
in the file shown below, records 0-439 can be accessed directly. 
Records 44G and above must be searched for sequentially starting with 
record 439. 

INDEX DATA RECORDS 



BRA0 



ERAl 



E439 



> RECORD 

> RECORD 1 



> RECORD 439 > RECORD 440 > RECORD 441 > 



The major difference between new and old DAM files is that the index is 
not lim.ited to a single record, but can grow into a multi-level tree. 
(Also, since pointers are new two words each, each index record holds 
half the number of pointers in old index records.) An index can grow 
to any size, and any date record can be directly accessed. The 
following paragraphs explain how this multi-level index is built. 

The handling of a DAM file on a new partition is identical to that on 
an old partition up to the point at vdiich the index record is full and 
another record is to be added to the file. At this point the following 
actions take place. 

1) Three new records are obtained frar. the file system. C*ie of 
these records is to be the new data record, the other two are 
used to construct the second index level . 

2) The index entries fran the full index record are copied into one 
of the other new records. This record is to become the first 
index record of the new index level. 
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3) The old index record is reinitialized to contain two pointers to 
the two index records on the new level. 

4) The other new index record is initialized with a single entry 
pointing to the new data record. 

5) Forward, backward, and father pointers are set up as shown in the 
diagram below. 

At this point, the creation of the new index level is complete. Note 
that the BRA in the directory entry for the DAM file still points to 
the original index record, which is now the top of a two-level index. 



I I 
I DIR I 

I I 



BIR = UFD or Segment Directory 



INDEX LEVEL 2: 



IIJ 1-0 
IK I 

e-i I 



I 



-0 = NULL POINTER 

I 

I = FATHER POINTER 



INDEX LEVEL 1: 



DATA LEVEL: 



JIL I— KiN 1-0 
IM I I I 
0-1... I 1 I 



I I I 

i_ I I 

Ll I —Ml I ...~N| 1-0 

I I I I II 
0-1 I 1 I ... 1 I 



The DIR entry points to the original index record (record 'I ') , which 
now contains just pointers to records ' J ' and 'K ' ~ the two records on 
the index level just created. Record ' J ' contains the data record 
pointers originally in 'l ' ~ 'L', 'm', etc. Record 'K' contains a 
single pointer to the newly created data record 'N'. 

Once an index level is created, it is never deleted until :he file 
itself is deleted ~ there will alg paragraphs explain how this 
multi-level index is built. 
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The handling of a DAM file on a new partition is identical to that on 
an old partition up to the point at which the index record is full and 
another record is to be added to the file. At this point the following 
actions take place. 

1) Three new records are obtained from the file system. One of 
these records is to be the new data record, the other two are 
used to construct the second index level. 

2) The index entries from the full index record are copied into one 
of the other new records. This record is to become the first 
index record of the new index level. 

3) The old index record is reinitialized to contain two pointers to 
the two index records on the new level. 

4) The other new index record is initialized with a single entry 
pointing to the new data record. 

5) Forward, backward, and father pointers are set up as shown in the 
diagram below. 

At this point, the creation of the new index level is complete. ISiOte 
that the ERA in the directory entry for the DAM file still points to 
the original index record, which is now the top of a two-level index. 



DIR 



DIR = UFD or Segir.ent Directory 



I 



-0 = NULL POINTER 



INDEX LEVEL 2: 



I IT 
IK 



FATHER EOINTER 



INDEX LEVEL 1: 



I 



JjL |—K|N l-tl 
IM I I I 
0-1. ..I 1 I 



DATA lEVEL: 



LI I —Ml I — 
I I I I 
0-1 I 1 I — 



.~N| 1-0 

I I 
. 1 I 
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The DIR entry points to the original index record (record 'I ') , w-hich 
now contains just pointers to records ' J ' end 'K ' — the tvx) records on 
the index level just created. Record ' J ' contains the data record 
pointers originally in 'I' — 'L', 'M', etc. Record 'k' contains a 
single pointer to the newly created data record 'n'. 

Once an index level is created, it is never deleted until the file 
itself is deleted — there will always be at least one record on each 
level. If the file is einpty, there will be exactly one record on each 
index level. Ihis is to avoid undue thrashing when records are being 
added and deleted near the threshold of an index 's capacity. (Note 
that the overhead of the "unnecessary" levels is only one record per 
level.) 
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PART 2 
FUTIL, PEV. 12 & 13 

2.1 INTRODUCTION 



FUTIL has been conpletely revamped for rev 12 to use new file system 
calls exclusively, thus allowing it to work on both old and new 
partitions. Because of the new file system, the operation of FUTIL has 
changed in some minor ways. In addition, several new features have 
been added in accordance with the philosophy that FUTIL is a general 
file system utility and not just a copy and delete program. 

The minor functional differences are: 

1. To enable listing end copying frcir. write protected disks and to 
avoid updating date/time modified (DTM) stanps, FUTIL will not 
attempt to change access rights to files on these operations. 
Therefore, if any files or directories have even owner access 
rights (i.e. no read rights) , FUTIL will report a "NO RIGHT" 
error. The user does, however, have the ability to force FUTIL to 
read files on LISTF and ODPY operations, but so doing will update 
ell DIW's on listed or copied directories and further will fail on 
write protected disks. 



2. Since the new file syster, allows up to 32 character nam.es, all file 
names must be typed exactly as they are. For example, "DELETE 
B_ABCDE" would have deleted the file "B_ABCD" at rev 11, but will 
report "NOT FOUND" at rev 12. Of course, "on a new partition, the 
file "B ABODE" will be deleted and, if present, "E_ABCD" will not 
be deleted. 

3. At rev 11, some problems existed in the interaction of ATTACH, TO, 
and FKM, These problans have been either fixed or clarified for 
rev 12. In short, both TO and FROM will not effect the other end 
neither will affect the ATTACH point TxTe. HOME UFD) . ATTACH, 
however, will reset any FROM or TO nem.e beginning with "*" to be 
sim^ply "*", thus avoiding transferring improper tree names to a new 
home UFD. Absolute TO and FROM names (i.e. those beginning with a 
name rather than *) will not be affected by ATTACH. 

4. At rev 11, FUTIL would always abort processing upon encountering an 
error. Because of this, it was possible to end up with partially 
copied trees, for example, v*iich could o only be conpleted by 
redoing the entire operation. At rev 12, FUTIL will report any 
error conditions, and, with the exception of DISK FULL on copies, 
continue the operation. As an example of the utility of continuing 
on errors, it is now possible to UFDEEL all unprotected files end 
directories while leaving the protected ones intact. 
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5. Segment directories in the new file system are addressed in terms 
of entry number rather than record number, word number. Therefore, 
the syntax of names within segment directories has been changed 
from (rec, word) to (entry) . Thus, the fifth entry in a segment 
directory is (5) and last entry is (65534) . Note that (65535) is 
n ot a legal entry as the maximim size of a directory is 65535 
including the entry (0) . 

The new features added, in sunmary, are: 

1. Specification of LISTF output file nane (LISTSAVE) 

2. Scanning for files of a given name (SCAN) 

3. Conditional file delete on prefix match (CLEAN) 

4. Mode for forcing access rights on LISTF and copies on "fran" 
directories (FORCE) 

5. Ability to create new, empty IJFD's on "to" directory (CREATE) 

6. Ability to protect a file or directory (PROTECT), files and 
directories, to any depth (UFDPRO) , and an entire sub-tree s 

any depth (UFDPRO) , and an entire sub-tree structure (TREHK)) 

7. l^ to 32 character names on new partitions 

8. Ability to specify current logical disk in absolute tree 
names (<*> disk name) 

9. LISTF option to print passwords of sub-directories 

10. LISTF option to print the time/date modified stamp (DTM) 



2.2 NAMING CONVENTIONS 



The PRIMOS file structure on any disk pack is a tree structure where 
the MFD is the root or trunk of the tree, the links between directories 
and files or subdirectories are branches, and the directories and files 
are nodes. A directory tree consists of all files and subdirectories 
that have their root in that directory. In Figure 2-1, the directory 
tree for UFDl is circled. An MFD directory path name consists of a 
list of directories and passwords necessary to move down the tree from 
the MFD to any directory. For example, the MFD path name for SUFDll 
is: 
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MFD MFDPASSWORD > UFDl UFDIPASSWDRD > SUFDll UFDllPASSWORD 

The ">" separates directories in the path-name and suggests that one is 
proceeding dowi a tree structure. Note that file and directory names 
can be as long as 32 characters (6 on old partitions) , but passwords 
can be at most 6 characters long. 

An MFD directory path-name may optionally onit the MFD and may 
optionally include the logical disk number of the pack or the pack name 
as shown below: 

UFDl UFDIPASSWORD > SUFDll SUFDllPASSWORD 

< 1 > UFDl UFDIPASSWORD > SUFDll SUFDllPASSWORD 

< TSDISK > UFDIPASSWORD > SUFDll SUFD11PASSWC»D 

The logical disk nutiber may optionally follow the first ufd as follows: 

UFDl UFDIPASSWORD 1 > SUFDll SUFDllPASSWORD 

If no pack name or disk nutiber is given, the logical disk referred to 
is the lowest numbered logical disk in Whose MFD UFDl appears. A user, 
using the ATTACH or miMOS LOGIN comnand or the FUTIL ATTACH canmand 
may specify a particular user-file-directory in the file structure as 
the home-ufd. Additional FUTIL ATTACH coranands may refer to either the 
MFD or the hane-ufd as the starting point. If the logical disk name is 
specified as "*", the MFD of the current logical disk is scanned for 
UFDl. Names of this form are referred to as absolute path names since 
the location of the home UFD is not part of the name. A home-ufd 
directory path name consists of a list of directories and passwords 
necessary to move down the tree from the home-ufd to any directory 
v*iich has the home-ufd as the root. For example, if the home-ufd is 
UFDl, the home-ufd path name to SUFDll would be: 

* > SUFDll SUFDllPASSWORD 

"*" represents the hatie-ufd. The home-ufd path-name to UFDl is simply 
"*". This form of tree name is also referred to as a relative path 
name. 

Whereas many users are familiar with user-file-directories, few are 
familiar with a second type of directory called a segment directory. A 
user-file-directory is a file which consists of a header and a number 
of entries. Each entry consists of a 1 to 32 character filename (on 
old partitions, nanes can be at most 6 characters long) , protection 
attributes of the file, and a disk record address pointer to the file. 
A segment directory is a file consisting of as many as 65535 entries, 
each entry being a disk record address pointer to the file. A 
pointer indicates no file at that entry. To refer to a particular file 
in a segment directory., a user must specify the entry number of the 
entry in the segment directory. A user specifies the position as an 
unsigned entry number, enclosed in parentheses. 
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Figure 2-1. Sample File Structure 
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BRANGJ 






































DSKKAT 




BOOT 




UFDl 




UFD2 
















































suroii 




SUFD12 




SUFD22 




















FTr.EA 




FTT.KR 




F-TH-. 



IS'EL 1 



LEVEL 2 



LEVEL 3 



ISj-ZL 4 



DIBBCrOPY TREE 
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The first file is referred to as (0) , the second as (1) , the 440th file 
as (439), and the 441st file as (440). The construction (entry nunber) 
will be referred to as a segirent directory filename . In FUTIL, 
argunents to the ccnmands are either user-file-directory filenames or 
segment directory filenames depending on the directory type the file is 
under. Furthermore, names typed on the LISTF ccjnmand of FUTIL are of 
either type depending on the directory type the file is under. 



2.3 EESCRIPTIOJ OF FUTIL CDMMRNDS 

To invoke FUTIL, type FUTIL. When loaded, FUTIL types the ">" prompt 
character and awaits a commarx3 string from the user terminal. To 
terminate long operations such as LISTF, type CTRL P and restart FUTIL 
at 1000. A user should type a ccnmand followed by a carriage return 
and wait for the prompt character before typing the next command. The 
erase character " and the kill character ? may be used to modify the 
corranand string. In the following description of ccmnands, underlined 
letters represent the abbreviation of the camiand or argiment. [] 
surround optional arguments. ...means the previous eloitent may be 
repeated . 

* Indicates following information is a caiment 

QUIT return to ERIMOS CranmarJ Mode 

FBOtt directory-path-name 

v*iere directory-path-name is of format 

<LDISK> DIRECTORY [PASSWCM)] [LDISK] > DIRECTORY [PASSWORD] . . . 
or <DSKNAM> 
or < * > 

FROM defines the fron-di rectory in vAiich files are to be 
searched for the coratiands COPY, COPYSAM, COPYDAM, KlIETE, 
LISTF, LISTSA, SCAN, CIEAN, PROTECT, TREFRD, UFDH», 
TRECPY, TREDEL, UFDCPY, and UFECEL. The fron-directory is 
defined from the directory-path-name v*iose format is given 
above and described in detail in Section 2.2. The 
path-name may contain at most 10 directories v*iich may be 
segment directories as well as user-file-directories. If 
segment directories are specified, the user must have read 
access rights to them. If any error is encountered, the 
fr on-directory is set to hcxne-ufd (*) . The first 
directory in the path name may be "*" v*iich refers to the 
hane-ufd. The default from-directpry is the hone-ufd . 
Note that the FROM comnand never changes the home-ufd. If 
the FROM name is a relative path name (i.e. beginning 
with *>) , any future ATTACH 's, vAiich do chanop the 
home-ufd, will reset the FRCW name to *. 
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FROM <0> CARLSON 

Set from-di rectory to CARLSCW on logical disk 0. CARLSON 
must be in the MFD on logical disk and have a blank 
password . 

FROM CARISOJ ABC 

Search the MFD on all started disks for CARISON in logical 
disk order 0-8. Set the fron-directory to the first 
CARLSON directory found. One of the passwords of CARISC»J 
must be ABC. 

FROM <TSDISK> CARLSON > SUBl > SUB2 

Set the fron-directory to SUB2. SUB2 must be a directory 
in SUBl; SUBl must be a directory in CARLSCW; and 
CARLSON must be a dirctory in the MFD on a disk with pack 
name TSDISK. CARLSON, SUBl, and SUB2 must have a blank 
password . 

FIO'4 * 

Set the fron-directory to the hone-ufd. The home-ufd is 
normally the last ufd the user has logged into, or 
attached to with either the ATTACH or FTJTIL ATTACH 
coirniand. If logged into CARISON, the above coranand sets 
the fron-directory effectively to CARISON. This coranand 
does not have to be given again if the user changes the 
hone-ufd. Furthermore, this coranand does not have to be 
given at all unless the fron-directory has been made 
something other than hone, as hone-ufd is the default. 

FROM * > SUBl 

Set the fron-directory to SUBl. SUBl must be a directory 
in the hone-ufd and have a blank password. 

TO directory-path-name 

TO defines the to-directory in vAiich files are searched 
for the coranands CREATE, COPY, COPYSAM, OOPYDAM, TRECPY, 
and UFDCPY. The to-directory is defined from the 
directory-path-name. The path-name may contain at most 10 
directories which may be segment directories as well as 
user-file directories. If segment directories are 
specified, the user must have read and write access to 
than. The first directory in the path-name may be *, The 
default to-directory is the home-ufd. If any error is 
encountered, the to-directory is set to hone-ufd (*) . 
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Note that the TO conmand never changes the hoitie-ufd. If 

the TO name is a relative path name (i=e, beginning with 

*>), any future ATTACK'S, v*iich do change the home-ufd, 
will reset the to-name to *. 

NTIkCE directory-path-name 

ATTACH moves the home-ufd to the directory defined by the 
directory-path-nane. The path name may contain at most 10 
directories. The first directory in the path-name may be 
*. All directories in the path-name must be 

user-file-directories. If segment directories are 
specified within the path-name, a "BAD STRUCTURE" error 
will be reported and the home-ufd will be set to the last 
UFD specified in the path name before the error. ?n 
attach ccnmand will reset relative "to" and "fron" path 
names to * but leaves absolute names alone. 

COPY FILEA [FILEB] [ , FILEC [FILED] ]... 

Copy FILEA in the fron-directory to FILEB in the 
to-directory and optionally FILEC in the frcm-directory to 
FILED in the to-directory. If FILEB is omitted, the new 
file is given the same name as the old file. FILEA and 
FILEC must be SAM or DAM files and cannot be directories. 
R M or DAM files and cannot be directories. Read access 
rights are required for FILEA and FILEC. If FILEB exists 
prior to the copy, it must be a SAM or DAM file and have 
read, write, and delete/truncate access rights. The file 
type of FILEB will be made the same as FILEA. 

Examples : 

COPY FILEA 

copy FILEA in the frcnv-directory to FILEA in the 
to-directory 



copy FILEA 



FILEB 



FILEC 



Copy FILEA, FILEB, and FII£C in the fron-directory to 
FILEA, FII£B, and FILEC in the to-directory. 

copy FILEA FILEB 

copy FILEA in from-directory to FILEB in to-directory 

COPY FILEAl FILEA2,FILEB1 FILEB2,FILEC1 FILEC2 
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copy FII£A1, FILEBI, and FII£C1 in the fr on-directory to 
FILEA2, FIIEB2, and FILEC2 in the to-directory 

COPY (0) 

The frcxn-directory and to-directory must each be segment 
directories. C3opy the file at position (0) of the 
frcan-directory to position (0) of the to-directory. There 
are no access rights attached to these files, so PRIMOS 
checks instead the access rights of the directory. No 
spaces are allowed in the name (0) . 

CX)PY (0) (1) 

Copy the file at position (0) of the froni-directory to 
position (1) of the to-directory. 

OOPYSA M FILEA fFILEB] [, FIIEC [FII£D] ]... 

same as COPY but also set file type of FILEB and FII£D to 
SAM instead of copying the type of FILEA and FIIEC. 

OOPYDA M FILEA [FILEB] [, FILEC FILED] ]... 

same as OOPYSAM but set file type of FILEB and FILED to 
DAM 

TRECP Y DIRA [DIRB] [ , DIRC [DIRD] ]... 

Copy the directory tree specified by directory DIRA to 
directory DIRB and optionally DIRC to DIRD. DIRB and DIRD 
must not previously exist. If DIRB is omitted, use name 
DIRA as the directory to copy to. A directory tree 
consist of all files and sub-directories that have their 
root in that directory. DIRA and DIRC must be in the 
from-directory. DIRB and DIRD are created in the 
to-directory. Read access rights are required for DIRA 
and DIRC and all files or sub-directories within them. 
The restriction on sub-directories can be overridden with 
the FORCE cormiand. 

DIRB and DIRD are created with the same directory type and 
passwords as DIRA and DIRC and with default access rights. 
The names, access rights and passvgords of all files and 
sub-directories copied are also copied. 

Exanple : 



FROM MFD 
TO MFD 
TRECPY CARLSON 



CARNEW 
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copy the directory tree specified by CARISON in the MFD to 
a new directory CASNEW in the MFD 

UFDC PY 

Copy all files and directory trees from the from-directory 
to the to-directory. The user must have ovmer rights in 
the FF04 directory. Furthermore, all files and 
directories in the fran-directory, as well as all 
sub-directories and the files within than, must have read 
access rights. This restriction on sub-directories can be 
overridden with the FCMCE contnand. Files alreaSy existing 
in the to-directory with names identical to those in the 
from-directory are replaced. Files that are replaced must 
have read, write, and delete accesss rights. 

Segnent directories already existing in the to-directory 
with names identical to those in the from-directory are 
not allowed and will not be copied. Files and directories 
created in the to-directory will have the same file type 
and access rights as the old files. If a file or UFD in 
the to-directory has the same nane as a file or UFD in the 
frcm-directory, the access rights must permit read, write, 
and truncate/delete. When the copy is finished, the new 
file will have the same protection attributes as the 
corresponding file in the from-directory. *Ihe names, 
access rights and passwords of all files and 

sub-directories within directory trees being copied are 
also copied. Other existing files and directories in the 
to-directory are not affected. UFDCPY is effectively a 
merge of two directories including merging sub-UFD's. 
Both the fran and the to-directory must be user-file 
directories. 

Example : 

FRCM CARLSCaJ 
TO CARNEW 
UFDCPY 

copies all files and directories from CARLSCN in the MFD 
to CARNEW in the MFD. Note that unlike the example for 
TRECPY, the user has not specified the MFD as the 
frcm-directory, therefore, does not need to know the MFD 
password. In the example CARNEW exists prior to the 
UFDCPY. With TRECPY, CARNEW does not previously exist. 

CREATE UFOJAME (OWNERPASSWC^D [NCMMNERPASSWCXUD] ] 
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Creates a UFD in the "TO" directory with the owner and 
non-owner passwords specified. A UFD of the same name 
cannot already exist in the "to" directory. If a password 
is not specified, it will be set to 6 blanks. if a 
password is specified - longer than 6 characters, only the 
first 6 will be used. The access rights of the new UFD 
will be the default rights assigned by PRIMOS. 



OSLETE FII£A [FILEB] 



delete FILEA and optionally FIIEB fran the fran-directory. 
FILEA and FILES cannot be directories. The user must have 
read, write and delete access rights to each file. If 
FILEA and FILEB are in a segment directory, read, write 
and delete access rights are required for the 
f r om-d irectory . 

Examples: 

EEIETE FILEA 

EELETE FIIEA FILEB FILEC FILED 



TREDEL DIRA [DIRB] ... 



delete the directory tree specified by directory DIRA and 
optionally delete DIRB from the from-directory. DIRA and 
DIRB must be directories. The user must have read, write, 
and delete rights to DIRA and DIRB. Itead, write and 
delete rights are not required for files and 
sub-directories nested within DIRA or DIRB. If FILEA and 
FILEB are in a segment directory, read, write, and delete 
access rights are required for the fr cm-directory. Note 
that the operating system MILETE coraiand will not delete a 
directory on a new partition if it is not anpty. 



UFTOEL 



LISTF 



delete all files and directory trees within the 
from-directory. User must give the owner password in the 
FROM cOTuiand and have read, write, and delete access to 
all files and directories within the from-directory. 
These rights are not required for files and 
sub-directories nested within the directories in the 
from-directory. Note that read and write access rights to 
a sub-UFD are sufficient to delete the contents of that 
directory, but not the directory itself. 

[level] [LSTFIL] [PROTECT] [SIZE] [TYPE] [DATE] [PASSWORDS] 
[FIRST] ^ ^ _ ~ _ 
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List the fron directory-path-name, the to 

directory-path name, and all files and directory trees in 
the frdti-directory on the terminal. Optionally, follow 
each file by its protection attributes, size in disk 
records (mod 440 words), file type, date/time modified 
(CffM) , and, on directories, the owner and non-owner 
passwords. The user must give the owner password in 
specifying the fran-directory. If the ISTFIL option is 
givsi, the list of files is sent to file "ISTFIL" in the 
home-ufd insteaS of to the terminal. At a later time, a 
user may wish to print that file on a line printer. Level 
is a number specifying the lowest level in the 
frann-directory tree structure to be listed. The following 
table describes the output: 

level output 

the "from" and "to" directory names 

1 the frcm-directory and all files and 
directories within it (level 1 directories) 

2 all output at level 1 and all files 

and directories within level 1 directories 

etc . etc . 

If the level is omitted, the default is 1. 
The protection attribute of each file is typed as: 

< owner-key non-owner-key > 
The keys are number 0-7 with the following meaning: 

no access allowed 

1 read access only 

2 write access only 

3 read and write access 

4 delete/truncate only 

5 delete/truncate and read 

6 delete/ truncate and write 

7 all access allowed 

The possible file types are: 

SM for sam file 

DAM for dam file 

^IGSAM for sam segment directory 

SEGDAM for dam segment directory 

UFD for user file directory 
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On new partitions, the DIM of a file or directory is 
printed as: 

15:31:22 MCavi 08 NOV 1976 

where 15:31:22 is 15 hours past local midnight (3PM), 31 
minutes, 22 seconds. The day of the week printed will be 
correct for all dates between 1 January 1972 through 31 
DecQtiber 2071. If the date is unreasonable (e.g. v*ien SE 
-0000 -0000 is typed at the system console) , the DIM is 
not printed. All dates are considered reasonable as long 
as the racxith is between 1 and 12. Note that the day of 
the week will be correct for dates such as 32 December and 
April since they will be considered as 1 January and 31 
March, respectively. 

The passwords on sub-directories are printed as: (OWNER, 
NOWNER) . Note that non-printing characters are suppressed 
rather than replaced by blanks or printed on the user 
terminal although they will be sent to an output file 
(LSTFIL). Thus, the default passwords on a UFD are 
printed as ( ,) since the non-owner password is 0, 

not blanks. Similarly, a password of CNTRL (UFD) would be 
printed as ( , ) and written to a file as 

("225"206"204 , ) . 

The FIRST line option specifies that all files not beginning 
with * (the usual conversion for run files) and B (the 
usual conversion for FMA and FTN object files) are to have 
their first lines printed. If the file is not an ASCII 
file and the nane does not begin with * or B , the camient 
"NO FIRST LINE" will be printed. First lines are preceded 
by ":" and will be placed on the same line as the file 
and its options, if it will fit. LISTF traverses the file 
structure as shown by the snaked line generating typeout 
at the various points below. 
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The output with level set to 3 and with the SIZE option 
will appear as follows for the above file structure: 



FRCM-DIR = MFD 
TO-DIR =* 




BEGIN MFD 


1 


DSKRAT 1 BOOT 




BEGIN UFDl 
BEGIN SUFDll 


1 
1 


FILEA 1 




END SUFDll 
BEGIN SUFD12 


2 
1 


FILEB 1 




END SUFD12 
END UFDl 
EEGm UFD2 

BEGIN SUFD21 


2 
5 

1 
2 


FILEC 1 




END SUFD21 
END UFD2 
END MFD 


2 

3 
11 



Note that the user must have read access rights to all 
files, sub-directories, and files within si±)-directories. 
Ihis restriction can be overridden with the FORCE caranand. 

LISTF, upon encountering a directory, prints the word BEGIN 
followed by the name of the directory and its size in 
records. On leaving a directory, LISTF prints "END 
Directoryname" followed by the nunber of records used by 
all files and directories within the directory tree headed 
by the directory file. On encountering a file, LISTF 
simply prints its name and size, squeezing as many files 
as will fit on each line. LISTF skips a line vAienever a 
directory follows a file or a file follows a directory. 
LISTF will not count records in files lower than "level" 
in the fran-directory tree. In addition, EftM file indices 
will not be included in the size. 
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In the above example, the number following MFD, 11, is the 
total nunber of records used by the MFD directory tree and 
consists of all files and directories on the disk pack. 
LISTF indents the printed output one space for each level 
down the tree in which the directory is located. This 
format makes it easy to understand the relationship of 
each directory to other directories in the tree. 

LIST SA VE fname [level] [PROTECT] [SIZE] [TYPE] [DATE] [PASSWORDS] 
[FIRST] " ~ - - ~ 

This command is identical to LISTF with the I5TFIL option 
specified except the output file will be named "fname" 
rather than "LSTFIL" and the ISTFIL option is redundant. 



SCAN 



CLEAN 



fname [level] [PROTECT] [SIZE] [TYPE] [DATE] [PASSWORDS] 
[LSTFIL] [FIRSTT " ~ - ■• '-~ J 

This coiranand is used to search the from-directory tree for 
the occurance of all files, sub-UFD's, and segment 
directories named "fname". if level is specified as 1 
(the default) , only the file name will be printed, 
followed by its options, if the level is greater than 1, 
the path name to the file or directory, starting from the 
fran-directory, is printed, followed by the file name and 
its options. For example, with the tree-structure shown 
for the LISTF example, the command SCAN FILEB S F 10 will 
print: 

FROM=MFD 
TO =* 

DIRECTORY PATH = MFD> UFD1> SUFD12 

FILEB 1 : NO FIRST LINE 

FILEB lacks a first line since it was empty. Note that 
the name FILEB is indented 3 spaces since it is in a third 
level UFD. 

prefix [level] 

This command is a conditional delete based upon a prefix 
match. If a file name begins with the characters 
specified as "prefix", the file will be deleted. If level 
is specified greater than 1, that many levels of sub-UFD's 
will be scanned for prefix matches. In no case, will 
CLEAN delete a UFD or a segment directory. In the example 
tree structure used for LISTF and SCAN, the command: 
CI£AN F will not delete anything since no files beginning 
with F exist in MFD. However, the command: CLEAN F 10 
will delete ,n-300 FIE£A, FILEB, and FILEC since they all 
begin with F. Note that: CLEAN U will not delete either 



REV. 



30 



- 90 



May 1976 



PTU30 



PART 2 



PRIMOS FILE SYSTEM, REV. 13 



UFDl, UFD2, or any of the files within them. A typical 
usage of CI£AN would be: 

CIEAN L 
CLEAN B^ 

1o delete binary and listing files frorr. a UFD. 

PROTECT fname [owner [non-owner] ] 

Will protect "fname" in the frora-directory with the 
owner and non-owner protection attributes [defined 
under LISTF] specified. If the non-owner rights are 
anitted, they will be set to 0. If the owner rights 
are OTiitted , they will be set to 1 (read only). 
"Fname" can be a file, a UFD, or a segment directory. 
If it is a UFD, the file and sub-directories within 
it will not be protected. 

TREPRO tree-name [owner [non-owner]] 

This ccamiand is essentially the same as protect 
except "treename" is a UFD or segment directory in 
the from-directory and it and all files under it 
(UFD's only) will be protected with the specified 
rights, ^ain, the default rights are <1 0>. 

UFDP RO [owner [non-ovmer [levels]]] 

This command is used to protect all files and 
directories within the fran-directory with the 
specified rights, goir^ down sub-UFD trees the 
specified nunber of levels. The default rights are 
<1 0> and the default level is 1. Thus, in the 
example structure of LISTF, SCAN, and CLEAN, the 
camiand : UFDPRO will protect the files DSKRAT and 
BOOT and the UFD's UFDl and UFD2 with access rights 
<1 0> and will not change the rights of any of the 
sub-directory UFD's or files. Ihe canmand: UFDERO 1 
10 will protect all files and directories within 
MFD. Note that both the owner and non-owner rights 
must be specified in order to specify the nunber of 
levels. 

FORCE ON 

or ^F 

AS noted previously, LISTF, LISTSAVE, SCAN, UFDCPY, 
and TRECPy will not force read access rights on any 
files or sub-directories within the from-directory. 
This is to prevent the updating of DIM's of copied 
files as well as permitting these canmands to 
operated on write protected disks. The price of this 
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capability is that all files to be listed or copied 
must have read access. To override this restriction, 
the ccranand EDRCE Cm must be specified. This will 
cause read access rights to be forced, but will also 
cause L:STF, LISTSAVE, scan, UFDCFY, and TRECPY to 
fail on write-protected disks. The option remains in 
force until the comnand: FORCE OFF is specified. 
Note that UFDCPY will never force rights on the 
primary level of either the from or to-directory. 



2.4 RESTRICTIC»JS 



FUriL cannot process user-file-directory filenames that contain the 
characters "(" , ")" , "<" ,">","[", "]" , or ",". Avoid using 
filenames containing these characters. 

In using FOTIL under HllMOS, certain operations may interfere with the 
work of other users. For example, a UFDCPY conmand to copy all files 
from a ufd currently used by another logged- in user may fail. If any 
file in that directory is open for writing by that user, UFDCPY will 
encounter the error FII£ ALREADY OPEN, and will skip the file. If the 
user attempts to open one of his files for writing v*iile UFDCPY is 
running, the user may encounter that errror. The FtJTIL LISTF and 
TRECPY commands cause the same interaction problans. Other FUTIL 
commands such as COPY and EELETE can also interfere with the other 
user, but the problan is not as serious as only one file is potentially 
involved in a conflict. To prevent the conflicts, users working 
together and involved in operations using each other's directory should 
coordinate their activities, if two users consistently use the same 
ufd at the same time, they should avoid the FUTIL LlSIf command, and 
use the system LISTF command instead. 

FUTIL operations when using the MFD should be done carefully. Never 
give the command TREDEL MFD as the command will delete every file on 
the disk except the MFD, DSKRAT, BOOT, and BADSPT. A LISTF or UFDCPY 
Of the MFD should be done only if one is sure no other user is using 
any files or directories on that disk. A UFDCPY of the MFD to the MFD 
of another disk has the effect of merging the contents of two disks 
onto one disk. A user should be sure there is enough room on the 
to-disk before attempting this operation or it will abort. Recall also 
that the names of segment directories on the two disks may not 
conflict. Files of the same name will be overwritten and UFD's of the 
same name will be merged. To avoid the name conflict, it may be 
desirable to UFDCPY the MFD of one disk into a user-file-directory on 
another disk. Each directory originally on the from-disk becomes a 
subdirectory in that ufd on the to-disk. Ftor example, the contents of 
10 diskettes could be copied into 10 user-file-directories on a 1.5 M 
disk pack. Note that a UFDCPY of an MFD does not copy the DSKRAT, MFD, 
BOOT or BADSPT to the to-directory. If a user wishes to copy BOOT to 
the to-directory, use the COPY cotimand. Never copy the DSKRAT or the 
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BAESPT file from one MFD to another. 

The effect of a UFDCPY from the MFD of a disk in use to the MFD of a 
newly MAKE'd disk is to reorganize the disk files so that all files are 
conpacted, that is, have their records close to each other on the new 
disk. After such a compaction, the access time to existing files on 
the new disk is effectively reduced from the access time on the old 
disk. Furthermore, new files tend to be conpact since all free disk 
records are also compacted. The use of such compacted disks should 
improve the performance of all I«IMOS systons. 

users should not abort copy or delete operations under DOS, but should 
allow them to run to conpletion. Aborting a copy or delete operation 
may cause a pointer mismatch or bad file structure or a directory with 
a partial entry. DOS or FRIMOS will not run correctly with a directory 
with a partial entry. FIXRAT should be run immediately if these 
conditions are encountered. Under PRIMOS III and EKIMOS IV, 
interruption of FUTIL with Control-P will never result in a bad file 
structure , 



2.5 ERROR MESSAGES 

The following are error messages generated by FUTlb. In many cases, 
FUriL types error messages generated by DOS or PRIWDS and retains 
control, so users should be generally familiar with operating system 
error messages. The list given here includes those messages that may 
be encountered by FUTIL. Most messages are preceded by a file name 
identifying the file causing the error. Sane of the error messages 
have the format: 

reason for error 

FII£ = filename 

DIRECTORY PATH = directory-path-name 

In all cases except "DISK FULL" on copies, FUTIL will continue with the 
operation, reporting all errors as it goes until the operation is 
complete . 



Wirecognizable cormand 

ALREADY EXISTS or SEG DIR ALREADY EXISTS 

An attempt has been made to TRECPY to or CREATE a UFD or segment 
directory that already exists. Or UFDCPY has attempted to copy a 
segment directory vAiich already exists. If you intend to do the 
operation, the UFD or segment directory in the to-directory must first 
be deleted. 
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ALREADY OPEN 



Indicates an attempt to UFDCPY a directory to itself or an attempt to 
copy a file to itself, or an attempt to copy a directory to a 
sttodirectory within itself. 



BAD NAME 



A segment directory filename was given to a conmand which expected a 
ufd filename or vice versa. The type of filename must match the type 
of directory the file is contained in. 



BAD PASSWORD 

An incorrect password has been given in a FROM, TO, or ATTACH command. 
H^IMOS will not allow FUTIL to maintain control in case of a bad 
password so the FUTIL command must be given to restart FUTIL after the 
user has attached to his directory. The from-directory and 
to-directory are reset to hane-ufd in this case. 

BAD SYNTAX 

The command line processed by FUTIL is incorrect. 
CANNOT ATTACH TO SEGDIR 

The last directory in the directory path name to an ATTACH command is a 
segment directory. It must be a ufd, as ATTACH sets the home-ufd to 
the last directory in the path. 

CANNOT DELETE MFD 

User has given the UFIXKL command v*iile attached to the MFD. This is 
not allowed. 

STRUCTURE TOO DEEP 

Directories may be nested to a depth of 100 levels. User has attempted 
to exceed this limit, mder 32K PRIMOS II, this limit is dynamically 
reduced to 13 levels. 

DISK ERROR 

Same as unrecovered error. 

DISK FULL 

The disk has become full before FUTIL has finished a copy operation 
For operations involving many files, some files are not copied,* 
creating only partially copied directories which may be of limited use 
It IS suggested that the user delete such a structure immediately to 
prevent confusion as to what has been copied. 



REV. 30-94 



May 1976 



PTU30 



IN USE 



PART 2 PRIMOS FILE SYSTEM, REV. 13 



Indicates a FUTIL attempt to process a file in use by sane other user. 
It may also indicate an attempt to copy a directory to a subdirectory 
within itself. 

BAD STRUCTURE 

Indicates any of various conditions in viiich the implied or explicitly 
specified structure is illegal. For example, an attempt to specify a 
UFD under a segment directory will cause this error. 

CANNOT COPY FILE TO DIRECTORY 

On UFDCPY, indicates a file on the "from" side has the same name as a 
directory on the "to" side. 

N3 RIGHT 

user has attempted an operation on a file which violates the file 
access rights assigned to that file. These rights may be changed by 
the FROTECT canmand , if the user has given the owner password on 
ATTACH. 

NO UFD ATTACHED 

Self-explanatory. 

NOT A DIRECTORY 

User has given a directory-path-name viiich includes a regular file. 

NOT FCXJND 

Self-explanatory 

POINTER MISMATCH 

Indicates a bad file structure. Running FIXRAT is in order. 

END OF FILE 

user has attonpted to reference a nonexistent file beyond the end of a 
segment directory. 

NOT FOUND IN SEG-DIR 

user has attempted to reference a file in a segment directory with an 
entry of 0, viiich indicates file does not exist or the user has 
attanpted to reference a file past the end of the segment directory. 
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UFD FULL 

On a UFDCPY merge or a UFDCRf or TRECPY from a new partition to an old 
partition, the to-directory or a sub-directory has beccme full. FUTIL 
will report the error and then pop-up a level and continue as if the 
UFD had not become full . 

UNRECDVERED ERROR 

Indicates either the user has attanpted to write to a write-protected 
disk or an actual disk error or a FtrriL attempt to process a bad file 
structure. Running FIXRAT is in order if the disk was not 
write-protected. 

TOO MANY NAMES 

A "from", "to" or "attach" tree name was specified with more than 10 
names. 

WRONG FILE TYPE 

An attempt was made to DELETE or copy a directory or TREDEL, TRECPY or 
TREPRD a file. i«:^ri ot 

CANNOT ATTACH 

An attempt is made to UFDCPY a directory in which a sub-ufd has the 
same name as a file or segment directory on the "to" side. The "fran" 
side UFD is skipped. 
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